Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Setting report Top Margin

Status
Not open for further replies.

lizray

Programmer
May 14, 2008
126
AU
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 !
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top