既存のマクロを変更してPDFに印刷する代わりに

Question

私はVBAを初めて使用しており、私が望むことを達成する方法がわかりません。

誰かに、デフォルトのプリンタの代わりに、以下のマクロ印刷をPDFにする方法を教えてもらえますか？

Sub PRINTMULTIPACKS() 
' 
' PRINTMULTIPACKS Macro 
' 

' 
ActiveSheet.Unprotect 
ActiveSheet.Range("$C$13:$D$22").AutoFilter Field:=1, Criteria1:="<>" 
Sheets("EXPORT TO VENDOR MULTIPLE AREAS").Select 
ActiveSheet.Unprotect 
ActiveSheet.Range("$A$11:$AD$261").AutoFilter Field:=3, Criteria1:="<>" 
Sheets("FIXTURE SCHEDULE").Select 
ActiveSheet.Unprotect 
ActiveSheet.Range("$A$4:$S$874").AutoFilter Field:=17, Criteria1:="<>" 

Sheets("COVER MULTIPLE AREAS").Select 
Range("D10").Select 
Sheets(Array("COVER MULTIPLE AREAS", "EXPORT TO VENDOR MULTIPLE AREAS")).Select 
Sheets("COVER MULTIPLE AREAS").Activate 
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" 
Sheets("FIXTURE SCHEDULE").Select 
ActiveSheet.Range("$A$4:$S$874").AutoFilter Field:=17 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
    , AllowFiltering:=True 

Sheets("EXPORT TO VENDOR MULTIPLE AREAS").Select 
ActiveSheet.Range("$A$11:$AD$261").AutoFilter Field:=3 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
    , AllowFiltering:=True 
Sheets("COVER MULTIPLE AREAS").Select 
ActiveSheet.Range("$C$13:$D$22").AutoFilter Field:=1 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ 
    , AllowFiltering:=True 
Range("C10").Select 

Answer 1

End Subのあなたはちょうどあなたが使用しているExcelのバージョンに応じて、PDFとして保存することができます。

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
    "C:\Users\sample\Documents\mySheet.pdf", Quality:= _ 
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ 
    OpenAfterPublish:=False 

ここで、C:\Users..は、保存するパスとファイル名です。