Macro to print pdf with certain print settings

Hi all

I need a macro that lets me print an excel worksheet to pdf with specific print settings ("filename and save location" pop-up follows as normal)

Example excel 2010:

---Settings---
*Print active sheet*
*Collated*
*Landscape orientation*
*A4*
*Normal margins*
*Fit all columns to one page*

as well as PrintTitleRows = "1:2"

In advance, thanks!

Kind regards Chris

IF you record a macro, you will get the syntax. See PageSetup options and such. e.g.

Sub Main()
  ThisWorkbook.Worksheets("Sheet1").PageSetup.PrintArea = "A1:AH82"
  ThisWorkbook.Worksheets("Sheet2").PageSetup.PrintArea = "A1:$AB76"
  ThisWorkbook.Worksheets(Array("Sheet1", "Sheet2")).Select
  
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Adress\pdfmaker.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
    
  Shell "cmd /c " & """" & "C:\Address\pdfmaker.pdf" & """", vbNormal
End Sub