I am totally confused on the procedure to set top margin on a report.
In page setup I have chosen default printer, since the report could be printed on different printers. My code is shown below (I have omitted irrelevant code):
DoCmd.OpenReport strReport, acViewPreview, , , acHidden
With Reports(strReport).Printer
'try setting margin to 0, to get minimum margins
.TopMargin = 0
End With
DoCmd.Close acReport, strReport
other code in here
DoCmd.OpenReport strReport, acViewPreview
With Reports(strReport).Printer
minMargin=.TopMargin 'get minimum margin
'some other here to check on min value and then write the new Top Margin
.TopMargin = intTMargin
end with
With Reports(strReport)
Set .Printer = Application.Printers(strPrinterName)
End With
'other code here
With Reports(strReport).Printer
.Duplex = acPRDPSimplex 'now setup print details
.PaperBin = intBinID
End With
DoCmd.OpenReport strReport, acNormal 'report prints, but Top margin varies with different printers
DoCmd.Close acReport, strReport
Can anyone help, I am at the desperate stage !
In page setup I have chosen default printer, since the report could be printed on different printers. My code is shown below (I have omitted irrelevant code):
DoCmd.OpenReport strReport, acViewPreview, , , acHidden
With Reports(strReport).Printer
'try setting margin to 0, to get minimum margins
.TopMargin = 0
End With
DoCmd.Close acReport, strReport
other code in here
DoCmd.OpenReport strReport, acViewPreview
With Reports(strReport).Printer
minMargin=.TopMargin 'get minimum margin
'some other here to check on min value and then write the new Top Margin
.TopMargin = intTMargin
end with
With Reports(strReport)
Set .Printer = Application.Printers(strPrinterName)
End With
'other code here
With Reports(strReport).Printer
.Duplex = acPRDPSimplex 'now setup print details
.PaperBin = intBinID
End With
DoCmd.OpenReport strReport, acNormal 'report prints, but Top margin varies with different printers
DoCmd.Close acReport, strReport
Can anyone help, I am at the desperate stage !