make pdf file from a report

Hi,



i have the following code to make the pdf form a report. but i want to make the pdf in landscape mode and also each time with a new name.

can you help me please?

how can i change it?



If Me.Combo3.Value = "" Or IsNull(Me.Combo3.Value) Then

MsgBox "Please enter order number!", vbExclamation, "Order number required"

' ElseIf Me.cmb_AuftragNummer.Value Like "*[a-z]*" Or Len(Me.cmb_AuftragNummer.Value) <> 6 Then

'MsgBox "Invalid order number!", vbExclamation, "Invalid order number"

Else

DoCmd.OpenReport "rep_CQAReport", acViewPreview, , "[Fehlercode] = '" & [Combo3] & "'"

DoCmd.Close acForm, "frm_rep_cqaReport_filter"

DoCmd.OutputTo acOutputReport, "rep_CQAReport", acFormatPDF, "O:\Applications\CQA Reporting\PDFTest01.pdf", False

End If



thank you

make pdf file from a report