Check Printing Help Needed please.

[Terry]

I have an access accounting program that prints checks to my laser printer.
They are 3-part standard checks. Here is my problem. If I have say 4
checks to print, the first three print out on page 1 (3-checks per page) and
the fourth check prints out on the second page. Now I am left with a
partial page of check that only has two checks on it instead of a full page
of 3 checks. The next time I print checks I want to be able to use this
partial page of two checks first, then the next sheet of checks would be a
full page of 3 checks.

Can anyone please help with this problem?

Thanks,
Terry

 

[fredg]

I have an access accounting program that prints checks to my laser printer.
They are 3-part standard checks. Here is my problem. If I have say 4
checks to print, the first three print out on page 1 (3-checks per page) and
the fourth check prints out on the second page. Now I am left with a
partial page of check that only has two checks on it instead of a full page
of 3 checks. The next time I print checks I want to be able to use this
partial page of two checks first, then the next sheet of checks would be a
full page of 3 checks.

Can anyone please help with this problem?

Thanks,
Terry

Add a Report Header to your check printing report.
Add 2 text boxes to the Header.
1) Name one SkipControl
Leave it's control source unbound

2) Name the other SkipCounter
Set it control Source to =[Skip How Many?]

Now code the Report Header Format event as below:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
==========

Next code the Detail OnPrint event:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount <= [SkipCounter] And [SkipControl] = "Skip" Then
Me.NextRecord = False
Me.PrintSection = False
Else
[SkipControl] = "No"
Me.PrintSection = True
Me.NextRecord = True
End If

End Sub
=====

When you are ready to print checks, it will ask how many to
skip.
Then it will run the report.

 

[Terry]

Hi Fred:
Thanks for the quick response. I'm sorry, but I failed to mention that my
problem is that I'm using pre-printed checks. Your solution works great if
you are printing on blank paper and all the pages are the same size. My
delima is that sometimes I have only two checks left on a page (1 check has
been torn off, leaving only 2/3 of a page). I want to use this 2/3 sheet
which has two checks on it first then continue printing from the stack of
3-to-a-page checks for the balance of the check run. What I'm trying to
avoid is that if i have a check run that is not evenly dividable by 3, I
have one or two checks left over on each check run. I want to be able to
use this up and keep my check numbers in order. The checks are pre-printed
and pre-numbered.

Example:
I have a check run consisting of 7 checks to be printed. The last time I
printed checks I had the last page remaing with only two checks on it. I
need to use this page first (two checks) then the next full page (three
checks) and finally the next full page the will only use two checks and thus
leave one check on the last page for use on the next check run.

Thanks,
Terry

I have an access accounting program that prints checks to my laser
printer.
They are 3-part standard checks. Here is my problem. If I have say 4
checks to print, the first three print out on page 1 (3-checks per page)
and
the fourth check prints out on the second page. Now I am left with a
partial page of check that only has two checks on it instead of a full
page
of 3 checks. The next time I print checks I want to be able to use this
partial page of two checks first, then the next sheet of checks would be
a
full page of 3 checks.

Can anyone please help with this problem?

Thanks,
Terry

Add a Report Header to your check printing report.
Add 2 text boxes to the Header.
1) Name one SkipControl
Leave it's control source unbound

2) Name the other SkipCounter
Set it control Source to =[Skip How Many?]

Now code the Report Header Format event as below:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As
Integer)
[SkipControl] = "Skip"
Cancel = True
End Sub
==========

Next code the Detail OnPrint event:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount <= [SkipCounter] And [SkipControl] = "Skip" Then
Me.NextRecord = False
Me.PrintSection = False
Else
[SkipControl] = "No"
Me.PrintSection = True
Me.NextRecord = True
End If

End Sub
=====

When you are ready to print checks, it will ask how many to
skip.
Then it will run the report.