PrintMode

[Brandon Schultz]

I am using the example out the Northwinds Sample DB that uses the following
procedure

Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Preview_Click

Dim stDocName As String
Dim ReportSelection As String

ReportSelection = Me.cboLabelFormat

If ReportSelection = "JDC Format" Then
stDocName = "rptLabelsFormatJDC"
DoCmd.OpenReport stDocName, PrintMode
End If

Exit Sub

The code attached to my Preview button and my Print button looks like this:

Private Sub cmdPreview_Click()

PrintReports acPreview

End Sub

Private Sub cmdPrint_Click()

PrintReports acNormal

End Sub

My question is this; what code do I need to write to make use of a text box
on my form for number of copies. I realize that doing something like:
DoCmd.OpenReport stDocName, acViewPreview
DoCmd.PrintOut , , , , Me.txtQuantity
DoCmd.Close acReport, stDocName

would work but stDocName is in a different procedure and I have a lot of
report selections.

Thanks in advance for any guidance.

Brandon Schultz

[PC Datasheet]

Brandon,

Use the following code to print your report and it will invoke the standard
Windows print dialog where you can set the number of copies.

DoCmd.RunCommand acCmdPrint
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com

"Brandon Schultz" <br*************@tds.net> wrote in message
news:3f********@newspeer2.tds.net...

I am using the example out the Northwinds Sample DB that uses the following
procedure

Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Preview_Click

Dim stDocName As String
Dim ReportSelection As String

ReportSelection = Me.cboLabelFormat

If ReportSelection = "JDC Format" Then
stDocName = "rptLabelsFormatJDC"
DoCmd.OpenReport stDocName, PrintMode
End If

Exit Sub

The code attached to my Preview button and my Print button looks like this:

Private Sub cmdPreview_Click()

PrintReports acPreview

End Sub

Private Sub cmdPrint_Click()

PrintReports acNormal

End Sub

My question is this; what code do I need to write to make use of a text box
on my form for number of copies. I realize that doing something like:
DoCmd.OpenReport stDocName, acViewPreview
DoCmd.PrintOut , , , , Me.txtQuantity
DoCmd.Close acReport, stDocName

would work but stDocName is in a different procedure and I have a lot of
report selections.

Thanks in advance for any guidance.

Brandon Schultz