Number of Copies....

[Tim]

Is it possible to select the number of copies of a report from a variable
input in a form ?
--

Tim Patton
ICT Controller
Springfarm Architectural Mouldings Ltd
Antrim, N.Ireland
BT41 2RU

Tel: [phone] Fax: [phone]

Email: tp*****@sammoul dings.co.uk <mailto:tp***** @sammouldings.c o.uk>
Web: http://www.sammouldings.co.uk/
Moulding the Future ... Today
SAM Mouldings computer systems are protected from viruses by Sophos Anti
Virus.

Privileged/Confidential information and/or copyright material may be
contained in this email. The information and material is only intended for
the use of the addressee. If you receive this email by mistake, please
advise the sender immediately by using the reply facility in your email
software and delete the message from your system. Thank you.

[Justin Hoffman]

"Tim" <ti**********@u tvinternet.com> wrote in message
news:d7******** **@nwrdmz03.dmz .ncs.ea.ibs-infra.bt.com...

Is it possible to select the number of copies of a report from a variable
input in a form ?

Tim Patton

You don't say whether you have done any vba coding or whther it would have
to be a non-code solution. Anyway here is a code idea: In the code below,
the report has two module-level variables one to keep track of the copies
printed so far and the other to show how many are required. It gets this
from a texbox on an open form (Forms!MyForm.t xtCopies) and is set when the
form opens. Then we keep on setting NextRecord to false until we have the
desired number of copies.
Option Compare Database
Option Explicit

Dim m_lngCopyCount As Long

Dim m_lngCopiesRequ ired As Long
'
'

Private Sub Detail_Print(Ca ncel As Integer, PrintCount As Integer)

On Error GoTo Err_Handler

If m_lngCopiesRequ ired > 0 Then
If m_lngCopyCount < m_lngCopiesRequ ired - 1 Then
NextRecord = False
m_lngCopyCount = m_lngCopyCount + 1
End If
Else
PrintSection = False
End If

Exit_Handler:
Exit Sub

Err_Handler:
MsgBox Err.Description , vbExclamation, "Error No: " & Err.Number
Resume Exit_Handler

End Sub

Private Sub Report_Open(Can cel As Integer)

On Error GoTo Err_Handler

m_lngCopiesRequ ired = CLng(Nz(Forms!M yForm.txtCopies , 0))

Exit_Handler:
Exit Sub

Err_Handler:
Cancel = True
MsgBox Err.Description , vbExclamation, "Error No: " & Err.Number
Resume Exit_Handler

End Sub

[pietlinden]

sure. One of the arguments for DoCmd.Print is number of copies. Just
point that part at your open form...

DoCmd.Print "MyReport",..., 3

[Justin Hoffman]

<pi********@hot mail.com> wrote in message
news:11******** **************@ g47g2000cwa.goo glegroups.com.. .

sure. One of the arguments for DoCmd.Print is number of copies. Just
point that part at your open form...

DoCmd.Print "MyReport",..., 3

Which may be all the OP requires, but you will not be able to preview the
report as you can with my solution (if that is of any benefit)