using VBA formatting report page > 1

  • Thread starter Thread starter Gwen
  • Start date Start date
G

Gwen

Hi

Please assist.

I am trying to print a report with all pages after the
first to start at the top at 0.625. I am getting an
error with the code below:

Private Sub PageHeader_Print(Cancel As Integer, PrintCount
As Integer)

Dim ctl As Control

If ([Page] > 1) Then
For Each ctl In Section(3).Controls

If ctl.Control = acLabel Then
ctl.Top = 0.625
End If
Next ctl

End If

Thanks in advance
Gwen
 
I don't think you can change the format (Top) in the On Print event. This
would be possible in the On Format event.

Duane Hookom
MS Access MVP
 
Back
Top