サンプルコード3

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

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

2023-01-22