[Resolvido]Imprimir um Formulário

Boa tarde.

Como faço para imprimir um formulário?

Imprimir um relatório eu consigo.

Preciso imprimir o formulário no formato A3 e paisagem.

Alguem conhece algum codigo para fazer isso?

Att.

O Ideal mesmo... É relatórios... Mas é possivel!

'Define o papel para A3
Forms("frmCadIndividuo").Printer.PaperSize = acPRPSA3
'Define a orientação Paisagem
Forms("frmCadIndividuo").Printer.Orientation = acPRORLandscape
'Imprime 1 cópia somente o Registro Atual
DoCmd.PrintOut acSelection, CurrentRecord, CurrentRecord, acMedium, 1

Mude o Nome do Formulário para o seu.

Lá disse que CurrentRecord é parametro inválido.

Modifiquei o código e funcionou dessa maneira:

Código:


'Define o papel para A3
Forms("frm_Consumo_Diario_PT").Printer.PaperSize = acPRPSA4
'Define a orientação Paisagem
Forms("frm_Consumo_Diario_PT").Printer.Orientation = acPRORLandscape
'Define as margens do papel
Forms("frm_Consumo_Diario_PT").Printer.LeftMargin = 0.3 * 567
Forms("frm_Consumo_Diario_PT").Printer.RightMargin = 0.3 * 567

DoCmd.PrintOut acPages, 1, 1, acHigh, 1


Muito Obrigado!

Olá, que bom que deu certo!!!

Aqui testado no Access 2013 e não apresentou erros! Possivelmente seja função que não existia em outras versões!

Até a próxima se Deus quiser!