Print more than 1 copy

[SteveE]

Is there an option to select how many prints will be printed from theaccess options I would like be to print 2 or 3 etc copies, I can do this through the print dialouge but can I select this option anywhere in the access options?


Steve

 

[evilman]

use the PrintOut method
first open the report in preview mode
call the printout method
and then close it

DoCmd.OpenReport "My Report", acViewPreview, , , acWindowNormal
DoCmd.PrintOut acPrintAll, , , , NumberOfCopies
DoCmd.Close acReport, "My Report"

replace NumberOfCopies with some variable or some constant that represents the number of copies.

 

[SteveE]

ptint out

Thanks, I have amended the sample as below but where do I use this? you'll have to excuse me as I can work around the basic OK but I not sure just where to put this.

DoCmd.OpenReport "Planning Report", acViewPreview, , , acWindowNormal
DoCmd.PrintOut acPrintAll, , , , 2
DoCmd.Close acReport, "Planning Report"

thanks again

steve

 

[SforSoftware]

Steve,

You can use this code ie in the Click-event of a commandbutton on your form

 

[SteveE]

Thanks but when I use this I am getting an error "wrong number of arguments or invalid property assiognments"

any ideas?

Stev

 

[SteveE]

Private Sub Command12_Click()
On Error GoTo Err_Command12_Click

Dim stDocName As String
stDocName = "PlanningReport"
DoCmd.OpenReport "Planning Report", acViewPreview, , , acWindowNormal
DoCmd.PrintOut acPrintAll, , , , 2

Exit_Command12_Click:
Exit Sub

Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click

End Sub

 

[SforSoftware]

Try this:

Private Sub Command12_Click() 
  On Error GoTo Err_Command12_Click 

  Dim stDocName As String 

  DoCmd.OpenReport "Planning Report"
  DoCmd.PrintOut acPrintAll, , , , 2
  DoCmd.Close acReport, "Planning Report", acSaveNo

Exit_Command12_Click: 
  Exit Sub 

Err_Command12_Click: 
  MsgBox Err.Description 
  Resume Exit_Command12_Click 
End Sub

 

[SteveE]

Sorry to be a pain and thanks for the help, but the program now prints 1 copy of the selected report page and two copies of the form where the commond button is located.

Steve

 

[SforSoftware]

Sorry 's mine
after "DoCmd.OpenReport "Planning Report" " add: , acViewPreview

 

[SteveE]

Great,

thanks a million

Steve

 

[SteveE]

This now works great and I ask only one more question, when the notes printout can I insert a command so as the indivisual notes are colleated together, I can do this with printer controls but can it be built into the print options??

thanks

Steve

 

[SforSoftware]

Steve,

When you look in Help for PrintOut, you'll find de specification of this function. I don't think you did this, because you then didn't ask this question..

But Ok, add one argument to the DoCmd.Printout:
DoCmd.PrintOut acPrintAll, , , , 2, True

Set the last argument to True for sorting the prints.

 

[SteveE]

Ok I tried using the help and whilst I found the section I still cannot get the printouts to come out as non-colleated (False) below is the section of code which should print 2 copies of each together and then the next page.

DoCmd.OpenReport "PlanningReport", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 2, 0
DoCmd.Close acReport, "PlanningReport", acSaveNo

Any help please ?

Steve

 

[SforSoftware]

Hi,

I should think it must be True instead of False?

DoCmd.OpenReport "PlanningReport", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 2, True
DoCmd.Close acReport, "PlanningReport", acSaveNo

The last argument is the same as you use in the build-in print-dialogbox.

 

[SteveE]

Thanks but I tried True, False, 0, -1 , 1 but it just seems to make no difference.

Steve

 

[SforSoftware]

Then I'm sorry. Maybe someone else?

 

[SteveE]

Well thanks anyway

regards

Steve

 

[indesisiv]

i seem to recall that it is Yes or No to collate copies. Default is YES

Steve

 

[indesisiv]

Sorry I have just looked at it ... it is
True (-1) and False (0)
which is what you have tried i think so no help there

Sorry about that

 

[SteveE]

Thanks for all your help, I can only think the printer defaults must be overiding the code
but thanks anyway

Steve