[發問] 打印問題

jomeow

請問一下.. 我已設好了一個工作表1的打印設定..
請問我可不可以把工作表1的打印設定.. 復製到工作表2呢

先謝謝各位大大幫忙!!

ikboy

先點選已設好的工作表1, 表住Ctrl點選其他工作表(可以多個工作表), 輸入指令:
Alt+P,sp,Enter, 完成.

jomeow

回復 2# ikboy


    謝謝你呀... 我成功了.. 可以復制到第二張工作表..

問多一條題.. 如果是想由 file A的工作表打印格式, 復製到FILE B的工作表..

可以嗎?

因為每月都會由供應商給我一次.. 內容大致一樣,

我要每次都要重新設定打印設定..

謝謝各位大大再次幫忙!!

ikboy

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

複製代碼