close
希望以VBA設定所有欄位單一頁面列印,如下圖:
程式碼:
Application.PrintCommunication = False
With Sheets("工作表1")
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 0
End With
Application.PrintCommunication = True
程式碼:
Application.PrintCommunication = False
With Sheets("工作表1")
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 0
End With
Application.PrintCommunication = True
全站熱搜
留言列表