返回列表 上一主題 發帖

[發問] 打印問題

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
1# 跳轉到 »
發表於 2018-2-7 14:27 | 顯示全部帖子
先點選已設好的工作表1, 表住Ctrl點選其他工作表(可以多個工作表), 輸入指令:
Alt+P,sp,Enter, 完成.

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2018-2-8 14:31 | 顯示全部帖子
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
複製代碼

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題