Hello again,
With some work and all the help I was able to get this format to run. Now I have another problem, labels will show on screen the way I have set my skip/print lay out but having trouble at the printers. When sent to our HP LaserJet III the number of labels to skip will not work, they print at the top of the sheet. Even appear after the third time in the on screen view the same as the first print, showed the labels starting at the top. Did not matter what I put in an amoumt to skip, but it is like I enter a zero. I did get this to work on an Epson 850 printer we have but would like to get it to run on the laser jet.
Why is this changing from what I see on screen to what prints on the printer?
Working in Access 97.
Description set as:
Function Labelsetup ()
LabelBlanks& = val (InputBox$ ("Enter Number of copies to print") )
If LabelCopies& < 1 Then LabelCopies& = 1
Module set per:
ACC2000: How to Skip Used Mailing Labels and Print Duplicates (Q231801)
Code needed & set as:
Option Compare Database
Option Explicit
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
LabelLayout Me
End Sub
Private Sub Report_Open(Cancel As Integer)
LabelSetup
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
LabelInitialize
End Sub
Any help on this one, may be the set up will only work with Access 2000.
Thanks for your in put, JWT
With some work and all the help I was able to get this format to run. Now I have another problem, labels will show on screen the way I have set my skip/print lay out but having trouble at the printers. When sent to our HP LaserJet III the number of labels to skip will not work, they print at the top of the sheet. Even appear after the third time in the on screen view the same as the first print, showed the labels starting at the top. Did not matter what I put in an amoumt to skip, but it is like I enter a zero. I did get this to work on an Epson 850 printer we have but would like to get it to run on the laser jet.
Why is this changing from what I see on screen to what prints on the printer?
Working in Access 97.
Description set as:
Function Labelsetup ()
LabelBlanks& = val (InputBox$ ("Enter Number of copies to print") )
If LabelCopies& < 1 Then LabelCopies& = 1
Module set per:
ACC2000: How to Skip Used Mailing Labels and Print Duplicates (Q231801)
Code needed & set as:
Option Compare Database
Option Explicit
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
LabelLayout Me
End Sub
Private Sub Report_Open(Cancel As Integer)
LabelSetup
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
LabelInitialize
End Sub
Any help on this one, may be the set up will only work with Access 2000.
Thanks for your in put, JWT