Excel/VBA/印刷・PDF出力する

印刷する †

Dim sheetName As String
Dim printerName As String
sheetName = "シート名"
printerName = "プリンター名"
Worksheets("sheetName").PrintOut ActivePrinter:="printerName"

複数シート印刷する †

Worksheets("hoge", "fuga", "piyo").PrintOut

アクティブなプリンタを変更する †

printerName = "プリンター名"
Application.ActivePrinter = pinterName

アクティブなプリンタ名を取得する †

MsgBox Application.ActivePrinter

PDF出力する †

Dim fileName As String
fileName = ThisWorkbook.Path & "\PDF\hoge.pdf"
With ActiveSheet.PageSetup 
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1 
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fileName

複数シートをPDF出力する †

Dim fileName As String
fileName = ThisWorkbook.Path & "\PDF\hoge.pdf"
Worksheets(Array("hoge", "fuga", "piyo")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fileName