Odpowiedzi:
Możesz wydrukować go za pomocą Cute PDF i ustawić wydruk na Landscape
Po uruchomieniu tego kodu widać tylko okno zapisu pliku. Ładny plik PDF musi być zainstalowany zgodnie z instrukcjami na stronie internetowej.
Dim stDocName as string
Dim prn As Printer
Dim rpt As Report
stDocName = "your report object name"
Set prn = Application.Printers("CutePDF Writer")
prn.Orientation = acPRORLandscape
DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
Set rpt = Reports(stDocName)
Set rpt.Printer = prn
DoCmd.PrintOut
DoCmd.Close acReport, stDocName