Discussion:
insert vba page break
(too old to reply)
Jim
2009-06-14 14:41:01 UTC
Permalink
How do I insert a new page within a report using vb code.

I'm at the place in the report header where i want to do it but I don't
know how to insert the form feed


Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pages > 0 Then
If GrpArrayPage(Me.Page) = 1 And (Me.Page Mod 2) = 0 Then
'==================================
'insert additional blank page here
'==================================
End If
End If
End Sub

Thanks in advance
Jim
tina
2009-06-14 15:53:01 UTC
Permalink
this newsgroup doesn't see a lot of traffic, Jim. you might want to close
this thread (just by posting back to it to say you're closing it, as a
courtesy), and post your question in newsgroup
microsoft.public.access.reports

hth
Post by Jim
How do I insert a new page within a report using vb code.
I'm at the place in the report header where i want to do it but I don't
know how to insert the form feed
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pages > 0 Then
If GrpArrayPage(Me.Page) = 1 And (Me.Page Mod 2) = 0 Then
'==================================
'insert additional blank page here
'==================================
End If
End If
End Sub
Thanks in advance
Jim
Jim
2009-06-14 19:18:51 UTC
Permalink
Thanks

I'm closing this tread.

Jim
Post by tina
this newsgroup doesn't see a lot of traffic, Jim. you might want to close
this thread (just by posting back to it to say you're closing it, as a
courtesy), and post your question in newsgroup
microsoft.public.access.reports
hth
Post by Jim
How do I insert a new page within a report using vb code.
I'm at the place in the report header where i want to do it but I don't
know how to insert the form feed
Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pages > 0 Then
If GrpArrayPage(Me.Page) = 1 And (Me.Page Mod 2) = 0 Then
'==================================
'insert additional blank page here
'==================================
End If
End If
End Sub
Thanks in advance
Jim
Loading...