印刷する

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

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2022-06-12 (日) 00:32:24 (68d)