サンプルコード3
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | Sub 印刷サンプルコード() Application.PrintCommunication = False With Sheet3.PageSetup .Orientation = xlPortrait .PaperSize = xlPaperA4 End With Application.PrintCommunication = True With Sheet3 .PrintOut printtofile:=True, prtofilename:="C:\Users\Hiroki\Desktop\辞令電子化ツール\print_test3.pdf" End With End Sub |