Edward S Zuris
edzedz at comcast.net
Wed Apr 16 17:12:02 CDT 2008
I now have Microsoft Access printing on preprinted
forms/sheets by using twips to place textbox's on
the report.
However, I am having trouble finding object or VBA
code that adjusts Access's Report Page Setup for
setting the report printing margins.
It would be helpful to have the following code adjust
the just this report's print margins.
Any ideas ?
Thanks.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
sData = ""
sData = "=" & Chr$(34) & Trim$([rsData]![zData] & " ") & Chr$(34)
sReportName = ""
sReportName = zzReport.Name
Set RptCtrl = CreateReportControl(zzReport.Name, acTextBox, acDetail, ,
sData)
dsTop = CDbl([rsData]![LineY])
dsLeft = CDbl([rsData]![ColumnAdj])
dsWidth = CDbl([rsData]![zWidth])
RptCtrl.Top = ((dsTop * (1 / 6))) * 1440
RptCtrl.Left = ((dsLeft * (1 / 10))) * 1440
RptCtrl.Width = ((dsWidth * (1 / 10))) * 1440
RptCtrl.Height = 0.166667 * 1440
RptCtrl.FontName = "Courier New"
RptCtrl.FontSize = 12
RptCtrl.ForeColor = 0
RptCtrl.TextAlign = 1