Access 2.0 and Windows XP

K

kc

I have an old application that runs under Access 2.0. This application was
developed by an outside company many years ago.

When we print invoiced, we need to print multiple copies of that invoice,
but when we change the printer configuration to print multiple copies, it
automatically gets changed back to 1 copy.

Does anyone have any ideas as to why.
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
C

Chris Mills

That sounds normal, if you get a print dialog box.

I see, in Access2.0, I use sendkeys!
Sendkeys ("%FP%C + Trim(Str([nCopies])))

In A97 or later, DoCmd.PrintOut can specify the nbr copies.

Chris
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 
D

Di Cook

If you want to give the operator the choice to change the number of copies
and you are using a UserSettings table, suggest you add a new field to your
UserSettings table called NoCopies. Give the operator access to this field
and enter the number of copies you want. Place the following code on the
"On Click" event of the Invoice Print Button

If IsNull(Me!Invno) Then
MsgBox "Cannot proceed - you do not have an Invoice shown on screen", ,
"Cancelling operation"
Else
Dim nocopies As Integer

If Me.DIRTY = True Then
DoCmd DoMenuItem 0, 0, 4, 0, 20 ' Form, File, Save Record
End If

nocopies = DLookup("[NoCopies]", "UserSettings", "ID=1") 'looks up
value in UserSettings table
If nocopies = 1 Then
DoCmd OpenReport "rptInvoice", A_normal
Else
DoCmd OpenReport "rptInvoice", A_preview
DoCmd Print A_printall, , , , nocopies, False
DoCmd Close A_report, "rptInvoice"
End If
End If

Hope this helps
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Images are pixelated when saving to PDF 0
OneNote backups 0
How to use InfoPath to submit to a WSS 2.0 List? 1
How to print OneNote 2016 for Mac pages to fit on 8.5 x 11 inch paper 0
Access 2000 with Windows XP and W7 -- problems 0
Printing multiple copy reports in Access 2003 4
Works for Windows 2.0 Converters 1
Printing multiple copy reports in Access 2003 1

Top