[Resolvido]Impressão de formulário em modo Paisagem.

Olá amigos!

Mais uma vez eu venho pedir ajuda para terminar meu programinha em VBA-Access. Só falta a impressão.
Alguém sabe algum código que ao clicar no botão imprimir, DO FORMULÁRIO, imprima o registro selecionado deste formulário diretamente para a impressora padrão com orientação PAISAGEM e papel A4?


Grato.

Olá Thel.
Quanto ao botão é fácil.
Agora sair configurado direto em código para paisagem e A4, acho mais difícil.
Não seria mais fácil você configurar o report em paisagem e A4?
Saudações.

Saudações Cláudio Machado,

No início eu pensei assim como você escreveu: imprimir via relatório. Mas no modo formulário ficou tão legal e prático, que quando eu consulto algum registro já apresenta a ficha que quero na tela do formulário e aí eu mando imprimir direto para a impressora. Funciona beleza, mas só imprime com a orientação Retrato.

Se ninguém tiver uma ideia o jeito vai ser fazer do modo que você sugeriu mesmo.

Um grande abraço.

Prezados amigos,

Resolvi o meu problema e posto aqui a solução para ajudar outras pessoas:

1 - No evento AO CLICAR do botão IMPRIMIR digite este código:

Private Sub BotaoImprimir_Click()

' Prepara a impressão para LAYOUT PAISAGEM:
Forms("SeuFormulário").Printer.Orientation = acPRORLandscape

' Prepara a impressão para TIPO DE PAPEL A4:
Forms("SeuFormulário").Printer.PaperSize = acPRPSA4

' Manda imprimir somente o registro que está sendo visualizado no formulário:
DoCmd.PrintOut acPages, CurrentRecord, CurrentRecord, 1, Copias

' Macro criada para voltar ao formulário de consulta após a impressão,
' senão a tela de visualização do formulário fica escondida após a impressão e
' não aparece novamente.
DoCmd.RunMacro "EncerraImpressao"
End Sub


2 - Crie uma macro e salve com o nome EncerraImpressao com as seguintes linhas:

Ação Fechar; tipo de objeto Formulário, nome do objeto SeuFormulário; salvar não.

Ação AbrirFormulário; nome do Formulário SeuFormulárioPrincipal (deve ser diferente do formulário que está com o botão IMPRIMIR); Exibir formulário.

Créditos a todos vocês do Fórum Máximo Access e aos amigos:

Natopb (Fórum Script Brasil)
Schoen (Fórum Comunidade ITLAB)
Avelino (Site Usando Access)

Obrigado!

Problema resolvido!

Que bom que conseguiu resolver, o fórum agradece o retorno.
Saudações.

Valeu Cláudio Machado, obrigado também pela sua disposição em ajudar!