Amigos, preciso de um ajuda para executar a seguinte operação:

Imprimir um determinado relatório já definindo em qual impressora vai ser impresso, as margens, e a orientação do papel.

Alguem saberia me dar uma luz?

Qual a versão do seu Access ? A partir do Xp você tem uma coleção Printer que manipula tudo isso ( veja no help do Access).

Faça uma busca aqui no forum que você vai encontrar o que deseja.

Bom estudo

JBSR,

Veja nos seus emails.

Enviei arquivos que lhe poderão ajudar na execução de seu projeto...


Espero que lhe ajude...



Ewoks

Obrigado a todos que contribuiram com este arquivo.

Depois de analisar o código que meus amigos me encaminharão, estou postando o codigo "enxuto" para quem precisar. Mais uma vez, obrigado a todos que ajudaram.

Codigo para abertura de relatorios:

Dim rpt As Access.Report
Dim prtr As Access.Printer

Set Application.Printer = Nothing
Set prtr = Application.Printer

'Escolhe a orientação do papel
'onde:
'Retrato: acPRORPortrait
'Paisagem: acPRORLandscape

prtr.Orientation = acPRORLandscape

'Escolhe o tipo de papel
'onde
'A3: acPRPSA3
'A4: acPRPSA4
'Oficio: acPRPSLegal
'Consulte demais tipos de papel em AcPrintPaperSize

prtr.PaperSize = acPRPSA4


'Definir as margens da folha

prtr.TopMargin = 50
prtr.BottomMargin = 50
prtr.LeftMargin = 50
prtr.RightMargin = 50

'Abrir o relatório em modo de visualização

DoCmd.OpenReport "Nome do seu relatório", acPreview
Set rpt = Reports("Nome do seu relatório")

Set rpt.Printer = prtr


Codigo para abertura de formulários utilizando a mesma propriedade:

Dim rpt As Access.Form
Dim prtr As Access.Printer

Set Application.Printer = Nothing
Set prtr = Application.Printer

'Escolhe a orientação do papel
'onde:
'Retrato: acPRORPortrait
'Paisagem: acPRORLandscape

prtr.Orientation = acPRORLandscape

'Escolhe o tipo de papel
'onde
'A3: acPRPSA3
'A4: acPRPSA4
'Oficio: acPRPSLegal
'Consulte demais tipos de papel em AcPrintPaperSize

prtr.PaperSize = acPRPSA4


'Definir as margens da folha

prtr.TopMargin = 50
prtr.BottomMargin = 50
prtr.LeftMargin = 50
prtr.RightMargin = 50

'Abrir o relatório em modo de visualização

DoCmd.OpenForm "Formula1"
Set rpt = Forms("Formula1")

Set rpt.Printer = prtr

Espero poder ajudar alguem, como foi ajudado neste e em outros artigos.