ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¥´¦L°ÝÃD

¥ýÂI¿ï¤w³]¦nªº¤u§@ªí1, ªí¦íCtrlÂI¿ï¨ä¥L¤u§@ªí(¥i¥H¦h­Ó¤u§@ªí), ¿é¤J«ü¥O:
Alt+P,sp,Enter, §¹¦¨.

TOP

try this:
  1. Sub zz()
  2. Application.PrintCommunication = False
  3. With ActiveSheet.PageSetup
  4. .AlignMarginsHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.AlignMarginsHeaderFooter
  5. .BlackAndWhite = ThisWorkbook.Sheets(1).PageSetup.BlackAndWhite
  6. .BottomMargin = ThisWorkbook.Sheets(1).PageSetup.BottomMargin
  7. .CenterFooter = ThisWorkbook.Sheets(1).PageSetup.CenterFooter
  8. .CenterHeader = ThisWorkbook.Sheets(1).PageSetup.CenterHeader
  9. .CenterHorizontally = ThisWorkbook.Sheets(1).PageSetup.CenterHorizontally
  10. .CenterVertically = ThisWorkbook.Sheets(1).PageSetup.CenterVertically
  11. .DifferentFirstPageHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.DifferentFirstPageHeaderFooter
  12. .Draft = ThisWorkbook.Sheets(1).PageSetup.Draft
  13. .EvenPage.CenterFooter.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.CenterFooter.Text
  14. .EvenPage.CenterHeader.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.CenterHeader.Text
  15. .EvenPage.LeftFooter.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.LeftFooter.Text
  16. .EvenPage.LeftHeader.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.LeftHeader.Text
  17. .EvenPage.RightFooter.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.RightFooter.Text
  18. .EvenPage.RightHeader.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.RightHeader.Text
  19. .FirstPage.CenterFooter.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.CenterFooter.Text
  20. .FirstPage.CenterHeader.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.CenterHeader.Text
  21. .FirstPage.LeftFooter.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.LeftFooter.Text
  22. .FirstPage.LeftHeader.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.LeftHeader.Text
  23. .FirstPage.RightFooter.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.RightFooter.Text
  24. .FirstPage.RightHeader.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.RightHeader.Text
  25. .FirstPageNumber = ThisWorkbook.Sheets(1).PageSetup.FirstPageNumber
  26. .FitToPagesTall = ThisWorkbook.Sheets(1).PageSetup.FitToPagesTall
  27. .FitToPagesWide = ThisWorkbook.Sheets(1).PageSetup.FitToPagesWide
  28. .FooterMargin = ThisWorkbook.Sheets(1).PageSetup.FooterMargin
  29. .HeaderMargin = ThisWorkbook.Sheets(1).PageSetup.HeaderMargin
  30. .LeftFooter = ThisWorkbook.Sheets(1).PageSetup.LeftFooter
  31. .LeftHeader = ThisWorkbook.Sheets(1).PageSetup.LeftHeader
  32. .LeftMargin = ThisWorkbook.Sheets(1).PageSetup.LeftMargin
  33. .OddAndEvenPagesHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.OddAndEvenPagesHeaderFooter
  34. .Order = ThisWorkbook.Sheets(1).PageSetup.Order
  35. .Orientation = ThisWorkbook.Sheets(1).PageSetup.Orientation
  36. .PrintArea = ThisWorkbook.Sheets(1).PageSetup.PrintArea
  37. .PaperSize = ThisWorkbook.Sheets(1).PageSetup.PaperSize
  38. .PrintComments = ThisWorkbook.Sheets(1).PageSetup.PrintComments
  39. .PrintErrors = ThisWorkbook.Sheets(1).PageSetup.PrintErrors
  40. .PrintGridlines = ThisWorkbook.Sheets(1).PageSetup.PrintGridlines
  41. .PrintHeadings = ThisWorkbook.Sheets(1).PageSetup.PrintHeadings
  42. .PrintTitleColumns = ThisWorkbook.Sheets(1).PageSetup.PrintTitleColumns
  43. .PrintTitleRows = ThisWorkbook.Sheets(1).PageSetup.PrintTitleRows
  44. .RightFooter = ThisWorkbook.Sheets(1).PageSetup.RightFooter
  45. .RightHeader = ThisWorkbook.Sheets(1).PageSetup.RightHeader
  46. .RightMargin = ThisWorkbook.Sheets(1).PageSetup.RightMargin
  47. .ScaleWithDocHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.ScaleWithDocHeaderFooter
  48. .TopMargin = ThisWorkbook.Sheets(1).PageSetup.TopMargin
  49. If ThisWorkbook.Sheets(1).PageSetup.Zoom Then .Zoom = ThisWorkbook.Sheets(1).PageSetup.Zoom
  50. End With
  51. Application.PrintCommunication = True
  52. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD