udskriv flere eksemplarer

kan det ikke lade sig gøre, er der for lidt point, eller hvad???

Jeg mener ikke at der er noget direkte i syntaksen der lader dig angive antal gange du vil printe en rapport. Mne du behoever ikke en direkte forespoergelse.
Du kan bare bruge en inputboks:

Dim intAntalPrints as Integer
Dim Rpt as report
Dim i as integer
set Rpt = dinRapport

intAntalPrints = inputboks("Hvor mange udskrifter?")

For i = 1 to intAntalPrints
      Rpt.Print
Next i

det var lige det jeg ledte efter... jeg lurer lige om det virker..

compile error:
invalid outside procedure

jeg har bare sat det ind i et modul, og kaldt funktionen ved åbning af raporten...

I agree with overchord, prompt the user for the number of copies from a form.

Do you still need help with http://www.eksperten.dk/spm/370919 ?
mvh
Terry

terry--> ja den har jeg ikke fået til at virke helt optimalt endnu...

jeg er også sikker på at det er den rigtige løsning, dog virker det ikke...  jeg har bare sat det ind i et modul, og kaldt funktionen ved åbning af raporten...

OK, I've placed a comment on the other question. If you do send it then I will take a look after work :o)

terry--> takker..
det er under: " Set Rpt as Depositum " at den laver ballade..

jeg har selv luret det... kommer med et svar om lidt...

jeg brugte bare en mulighed der ligger under printout funktionen.:
DoCmd.PrintOut acPrintAll, , , , 2
hvor 2 illustrere antallet af kopier...
dog vil jeg gerne kunne promte brugeren om hvormange kopier der ønskes, kan man mon ikke skifte 2'tallet ud med en [Indtast antal] eller lign?!

Jp du kan bare bruge variablen fra input-boxen og indsaette den  i kaldet:

intAntalPrints = inputboks("Hvor mange udskrifter?")
...
DoCmd.PrintOut acPrintAll, , , , intAntalPrints

hvor kommer "inputboks" fra?

jeg er godt klar over at jeg skal navngive funktionen som inputboks, men den vil sgu ikke godtage den...

Denne er afprøvet og fungerer:

Private Sub Kommandoknap8_Click()
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
End Sub

Er det maaske fordi du er noed til at aabne rapporten foer der kan printes fra den? Saa bliver det nemlig lidt irriterende eftersom rapporten faar fokus naar den bliver aabnet....

jeg brugte bare en mulighed der ligger under printout funktionen.:
DoCmd.PrintOut acPrintAll, , , , 2
hvor 2 illustrere antallet af kopier...
og lader det være ved det... ellers tak...