Need folding assit for A4 paper.

[Frank Martin]

We fold the A4 paper into thirds before
inserting into an envelope.

How can we make a "fold mark" on the paper
during normal printing to assist folding?

Please help, Frank

 

[Al Camp]

Frank,
You probably only need one indicator. If you indicate the top 1/3 fold
line, you can determine the second fold by what's left.
I use a mark on the left and right of my invoices to designate the top 3rd
fold of the paper.
But that's in the header portion, so it's just a matter of a dashed line.

If your top 3rd fold occurs within the detail section, you should be able to
figure out on what Detail line it lies. Say... the 7th detail line down.

Place 2 dash marks on each end of your detail line... like this
--- Detail fields Detail fields Detail fields ---
and make them invisible.
Using the DetailPrint event, increment a counter for each detail print line,
and when count = 7, make the dash line conrols visible... and then invisible
when count = 8.
Reset the counter on every Page Footer.

 

[Frank Martin]

Thank you. I'll do this then.
Regards, Frank

Frank,
You probably only need one indicator. If
you indicate the top 1/3 fold line, you can
determine the second fold by what's left.
I use a mark on the left and right of my
invoices to designate the top 3rd fold of
the paper.
But that's in the header portion, so it's
just a matter of a dashed line.

If your top 3rd fold occurs within the
detail section, you should be able to
figure out on what Detail line it lies.
Say... the 7th detail line down.

Place 2 dash marks on each end of your
detail line... like this
--- Detail fields Detail fields Detail
fields ---
and make them invisible.
Using the DetailPrint event, increment a
counter for each detail print line, and
when count = 7, make the dash line conrols
visible... and then invisible when count =
8.
Reset the counter on every Page Footer.
--
hth
Al Camp
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions

message

 

[Al Camp]

Frank,
I tested this code, and it works OK...
Option Compare Database
Option Explicit
Dim DetailCount As Integer
----------------------------------------------------
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
DetailCount = DetailCount + 1
If DetailCount = 6 Then
DashLeft.Visible = True
Else
DashLeft.Visible = False
End If
End Sub
-------------------------------------------------------
Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)
DetailCount = 0
End Sub

Let me know how you make out...