G
Guest
Hello,
My client has Access 2000 with Access 9 obect library . I have access 2002
with Library 10. The code stops on the following and indicates a missing
reference. I have attempted to copy MSACC.OLB to the same directy on the
client PC with no luck. Any direction or help would be appreciated. Thanks.
David
'Center data on report
Me.Printer.DefaultSize = False
If (intColumnCount * 0.7896) * 1440 < 3420 Then
Me.Printer.ItemSizeWidth = 3420
Else
Me.Printer.ItemSizeWidth = (intColumnCount * 0.7896) * 1440
End If
Me.Printer.LeftMargin = (15840 - ((intColumnCount * 0.789605) * 1440)) / 2
Me.Label81.Left = ((15840 - ((intColumnCount * 0.789605) * 1440)) / 2) +
((((intColumnCount * 0.789605) * 1440) / 2) / 2) - (Me.lblHeader.Width)
Me.lblHeader.Left = ((15840 - ((intColumnCount * 0.789605) * 1440)) / 2)
+ ((((intColumnCount * 0.789605) * 1440) / 2) / 2) - (Me.lblHeader.Width)
Me.Text79.Left = ((15840 - ((intColumnCount * 0.789605) * 1440)) / 2) +
((((intColumnCount * 0.789605) * 1440) / 2) / 2) - (Me.lblHeader.Width)
End Sub
My client has Access 2000 with Access 9 obect library . I have access 2002
with Library 10. The code stops on the following and indicates a missing
reference. I have attempted to copy MSACC.OLB to the same directy on the
client PC with no luck. Any direction or help would be appreciated. Thanks.
David
'Center data on report
Me.Printer.DefaultSize = False
If (intColumnCount * 0.7896) * 1440 < 3420 Then
Me.Printer.ItemSizeWidth = 3420
Else
Me.Printer.ItemSizeWidth = (intColumnCount * 0.7896) * 1440
End If
Me.Printer.LeftMargin = (15840 - ((intColumnCount * 0.789605) * 1440)) / 2
Me.Label81.Left = ((15840 - ((intColumnCount * 0.789605) * 1440)) / 2) +
((((intColumnCount * 0.789605) * 1440) / 2) / 2) - (Me.lblHeader.Width)
Me.lblHeader.Left = ((15840 - ((intColumnCount * 0.789605) * 1440)) / 2)
+ ((((intColumnCount * 0.789605) * 1440) / 2) / 2) - (Me.lblHeader.Width)
Me.Text79.Left = ((15840 - ((intColumnCount * 0.789605) * 1440)) / 2) +
((((intColumnCount * 0.789605) * 1440) / 2) / 2) - (Me.lblHeader.Width)
End Sub