udskrive i to kopier

Ja
Når printerskiltet kommer op, så skift til 2 kopier.
Eller lav en gentagelse af koden hvis det er hvergang den samme knap skal udskrive posten 2 gange.
Vh Henrik

You use an input box to get the number of copies and then loop through the number printing the report.

Something like this
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click

Dim antal As Integer
Dim stDocName As String

    stDocName = "tbl1"
   
    antal = InputBox("Number Of Copies ?", "Antal", 1)
   
    Do While antal > 0
   
        DoCmd.OpenReport stDocName, acNormal
        antal = antal - 1
       
    Loop
   
Exit_Command7_Click:
    Exit Sub

Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click
   
End Sub

Dim i As Integer
Dim Antalex As Integer
If IsNull([Antal]) = -1 Then
MsgBox "Du har ikke indtastet antal eksemplarer."
Exit Sub
End If
Antalex = [Antal]
If Antalex <= 1 Then
MsgBox "Du har ikke indtastet antal eksemplarer."
Exit Sub
End If
For i = 1 To Antalex
DoCmd.OpenReport "Rapport2", acNormal, "", ""
Next i

Hvor Antal er et ubundet felt i din formular, hvori du indtaster antal, du vil have udskrevet. Du kan naturligvis også bruge en inputbox som terry foreslår.

Man skal ikke spørges om hvor mange eksemplarer man vil have. Knappen i formularen skal bare sørge for at der bliver udskrevet 2 eksemplarer af rapporten.

Dim i As Integer
For i = 1 To 2
DoCmd.OpenReport "Rapport2", acNormal, "", ""
Next i

tak

Selv tak.