Printen met Visual Basic

[Merkie18]

Heey allemaal,

Ik heb in Access een opdrachtknop op een formulier gemaakt waarmee automatisch een rapport wordt afgedrukt als ik op die knop klik. Nu zou ik graag willen dat het rapport via die knop 2x wordt afgedrukt. Weet iemand een code? Ik gebruik nu de code:


Private Sub Knop30_Click()
On Error GoTo Err_Knop30_Click

Dim stDocName As String

stDocName = "Reparaties"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

Exit_Knop30_Click:
Exit Sub

Err_Knop30_Click:
MsgBox Err.Description
Resume Exit_Knop30_Click

End Sub

Deze code zorgt er overigens ook voor dat alleen het rapport met het huidige ID van het formulier wordt afgedrukt.

Iemand ideeen?

Greetings Merkie18!

 

[Lensen]

for X = 1 to 2

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

Next X

 

[Merkie18]

for X = 1 to 2

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

Next X

Heey!

Bedankt voor je reactie! Ik snap even niet wat je bedoelt. Welke 1 moet ik in 2 veranderen? Zou je het misschien willen aanpassen in de code zoals ik die hierboven heb gezet?

Alvast hartelijk bedankt!!!!

 

[Multipede]

for X = 1 to 2

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

Next X

Hoi,

Vervang in jouw code

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

door bovenstaande.

De "for x = 1 to 2" geeft aan hoevaak de onderstaande regels (tot de "next") worden uitgevoerd, in dit geval 2x. De "next" zorgt ervoor dat het programma terugspringt naar de "for ..)

Succes

 

[Merkie18]

Hoi,

Vervang in jouw code

DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "Reparaties", , , "[ID]=" & Me.Id

door bovenstaande.

De "for x = 1 to 2" geeft aan hoevaak de onderstaande regels (tot de "next") worden uitgevoerd, in dit geval 2x. De "next" zorgt ervoor dat het programma terugspringt naar de "for ..)

Succes

Heey!

Super bedankt! Het is gelukt!!