Printing a quantity of a certain report in a form, how?

[Divardo]

Hi,



What I have is an access database with one report which needs to be printed by the user a certain amount of times whenever they wish. What I wanted to created was a form which allowed the user to enter a quantity up to 50 in a textbox, and then press a button to print. How could this be done?

Thanks.

[RuralGuy]

Maybe this link will be helpful.

[ansentry]

Divardo,

Have a look at my attached sample, it allows you to select the number of copies from a combo box.

You could also have a form with all your reports in a combo or list and a combo for the number of copy.

Result: Select the report to print from the list and then select the number of copies.

I'm sure that you will be able to modify my code to suit your situation.

RG: I just placed my mouse on the little marker under the number of post, mine reads OK but Yours?

[RuralGuy]

I don't think Moderators are allowed to get points, which is fine with me.

[ansentry]

RG,

What I read was:

RuralGuy is an unknown quantity at this stage

[RuralGuy]

I read the same thing. It probably means I have 0 points which is neither positive or negative.

[Divardo]

Divardo,

Have a look at my attached sample, it allows you to select the number of copies from a combo box.

You could also have a form with all your reports in a combo or list and a combo for the number of copy.

Result: Select the report to print from the list and then select the number of copies.

I'm sure that you will be able to modify my code to suit your situation.

RG: I just placed my mouse on the little marker under the number of post, mine reads OK but Yours?

That works perfectly, thanks so much. Does anyone know how to change the printer it prints to in the vba code for this?

[RuralGuy]

Are you wanting to use several printers because you can have each report use whatever printer you want and it will remember the setting.

[Divardo]

Would there be anyway to change the code in this to print the report without displaying it to the user before hand. Or if you have to display the report, hide it afterwards? Thanks

[RuralGuy]

Look up OpenReport in VBA Help. There is a Hidden argument.

[ansentry]

Try this code, I have and it works fine.

Private Sub cmdPrintReport_Click()


Dim strCopyCount As String
Dim strReport As String

strReport = "RptData"
strCopyCount = Me.cboHowMany.Column(1)

   Call PrintMultipleCopies(strReport, 2)

End Sub
Public Function PrintMultipleCopies(strReportName As String, _
                                    bytNumberOfCopies As Byte)
    Dim bytCounter As Byte
    For bytCounter = 1 To bytNumberOfCopies
        DoCmd.OpenReport strReportName
    Next bytCounter
End Function

This is not my code it came from: databasedev.co.uk

[Divardo]

Try this code, I have and it works fine.

Private Sub cmdPrintReport_Click()


Dim strCopyCount As String
Dim strReport As String

strReport = "RptData"
strCopyCount = Me.cboHowMany.Column(1)

   Call PrintMultipleCopies(strReport, 2)

End Sub
Public Function PrintMultipleCopies(strReportName As String, _
                                    bytNumberOfCopies As Byte)
    Dim bytCounter As Byte
    For bytCounter = 1 To bytNumberOfCopies
        DoCmd.OpenReport strReportName
    Next bytCounter
End Function

This is not my code it came from: databasedev.co.uk

I can't seem to change your code to suit mine, here is mine below.

Private Sub cmdPrintReport_Click()
Dim strCopyCount As String
    
    If IsNull(Me.cboHowMany) Then
     'If no selection was made from the combo box the force the user to do so.
     MsgBox "You must select number of copies from combo box", vbCritical, "No Selection"
     Me.cboHowMany.SetFocus
    
    Else
        'After a selection is made this code will run and print out the selected number of
        'copies. The code will also give you a preview of the report.
        strCopyCount = Me.cboHowMany.Column(0)
        DoCmd.OpenReport "CCVisitor", acViewPreview
        DoCmd.PrintOut , , , , strCopyCount
    
    End If
    
End Sub

[Matrix]

I don't think Moderators are allowed to get points, which is fine with me.

I didn't notice it. Now every account will work the same way.

[ansentry]

Delete previous code and replace with this code;

Private Sub cmdPrintReport_Click()

Dim strCopyCount As Byte
Dim strReport As String
    
        strReport = "RptData"
        strCopyCount = Me.cboHowMany.Column(1)

Call PrintMultipleCopies(strReport, strCopyCount)

End Sub

After End Sub hit the enter key go to a new line and paste this;

Public Function PrintMultipleCopies(strReportName As String, _
                                    bytNumberOfCopies As Byte)
    Dim bytCounter As Byte
    For bytCounter = 1 To bytNumberOfCopies
        DoCmd.OpenReport strReportName
    Next bytCounter
End Function

I note that in your code your have;

strCopyCount = Me.cboHowMany.Column(0)

I have;

strCopyCount = Me.cboHowMany.Column(1)

Are you sure that yours is correct?

The reason the code that I posted did not work was I posted the wrong copy of the code ... sorry my error.

If you still can't get it to work either post a copy of your db and I or someone else will have a look at it OR post back and I will post you an updated sample.

[Divardo]

That works perfectly, thanks so much .