Caros Amigos

Gostaria de saber como posso configura um relatorio no evento ao abrir

Configurar as suas margens e o tipo de papela via codigo no evento ao abrir do relatorio

Edimar

Amgio, tente o código a baixo:


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

Dim orientacaodopapel


orientacaodopapel = Orientacao

prtr.Orientation = orientacaodopapel

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

Dim tipodepapel

tipodepapel = NPaper

prtr.PaperSize = tipodepapel


'Definir as margens da folha
Dim margemsuperior
Dim margeminferior
Dim margemesquerda
Dim margemdireita

margemsuperior = MS
margeminferior = MI
margemesquerda = MER
margemdireita = MD

prtr.TopMargin = margemsuperior
prtr.BottomMargin = margeminferior
prtr.LeftMargin = margemesquerda
prtr.RightMargin = margemdireita

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

DoCmd.OpenReport NomeRelatorio, acPreview
Set rpt = Reports(NomeRelatorio)

Set rpt.Printer = prtr