[Resolvido]Impressão de formulário em PDF muito grande

Boa noite meus amigos,estou com um problema e queria a ajuda de vocês. Adaptei um código que achei aqui para  imprimir um formulário em pdf ,mas o mesmo sai muito grande na impressão.Queria saber de um modo de fazer essa impressão sair em formato de paisagem.Como faço?Imagem em anexo.


On Error GoTo fim
'Gera arquivo pdf do relatório previamente aberto e filtrado.
DoCmd.OutputTo acOutputForm, "frmdados02", acFormatPDF, strLocal

'Fecha o relatório
DoCmd.Close acReport, "frmdados02"

fim:
If Err.Number = 2501 Then
MsgBox "Ação cancelada pelo usuário", vbInformation, Me.Caption
End If

Bom dia colega , é so configurar ela para sair no modo de paisagem, caso queira ela de vba:

Código:


 Private Sub Report_Load()
   Printer.Orientation = acPRORLandscape
   DoCmd.OpenReport "SuaTAbela", acViewPreview
 End Sub


observação:cada configuração tem sua linha de margem limitada.

Obrigado por resonder !Vai funcionar mesmo que que eu esteja gerando esse PDF direto de um formulário e não de um relatório?

tem que ver o Código como está , se não der esse voce faz a margem dele

Código:

reports("NomeRelatório").printer.LeftMargin = 2 * 567 'margem esquerda com 2cm
reports("NomeRelatório").printer.RightMargin = 1 * 567 'margem direita com 1cm

Código:

?report("SeuRelatorio").Printer.Orientation = acPRORLandscape


Obrigado cara!Vou testar aqui.

Obrigado!