Print macro laten stoppen

[Imod]

Ik heb een macro gemaakt die zorgt dat er een print wordt gemaakt van 2 bladzijden op 1 A4 blad (voor en achterkant)
Dit gaat goed - het A4 blad wordt 1x geprint.

Nu wil ik het aantal keer A4 bladen nog kunnen invullen voor dat hij gaat printen.
Dus de macro moet stoppen op dit moment!!
Nu invullen aantal keer en dan druk ik zelf op de print knop!!
Ik heb al vanalles geprobeert maar krijg het niet voor elkaar.
Wat moet ik weghalen of toevoegen of wijzigen??

Sub Macro_Print_Voorachter()
Application.ActivePrinter = "\\fs-heijkant\Panasonic DP-C265 op Ne07:"
ExecuteExcel4Macro _
"PRINT(2,1,2,1,,,,,,,,2,""\\fs-heijkant\Panasonic DP-C265 op Ne07:"",,TRUE,,FALSE)"
End Sub

 

[Joske2000]

Imod,

Aantal copies staat op Blad1 in cel A1.

Joske

Sub Macro_Print_Voorachter()
Application.ActivePrinter = "\\fs-heijkant\Panasonic DP-C265 op Ne07:"
ActiveWindow.SelectedSheets.PrintOut Copies:=[Blad1!A1]
end sub

 

[Imod]

Bedankt voor je antwoord,

De macro print wel - aantal klopt ook,
Maar hij print nu alles 1 zijdig uit en dit moet dubbelzijdig zijn.
Dit zal aan deze zin liggen:

ExecuteExcel4Macro _
"PRINT(2,1,2,1,,,,,,,,2,""\\fs-heijkant\Panasonic DP-C265 op Ne07:"",,TRUE,,FALSE)"

Deze zal deels in de macro moeten worden verwerkt.

 

[Imod]

Niemand die het weet??

 

[LucB]

Dag Imod,

Zou dit werken?

Sub Macro_Print_Voorachter()
Dim aantal As Long
For aantal = 1 To Range("A1").Value
Application.ActivePrinter = "\\fs-heijkant\Panasonic DP-C265 op Ne07:"
ExecuteExcel4Macro _
"PRINT(2,1,2,1,,,,,,,,2,""\\fs-heijkant\Panasonic DP-C265 op Ne07:"",,TRUE,,FALSE)"
Next aantal
End Sub

 

[Imod]

Hallo LucB,

Ik probeer het maandag even uit

 

[Imod]

Luc,

Alleen het voorblad wordt nu een aantal keer uitgeprint met deze macro.

 

[Warme bakkertje]

PRINT?(range_num, from, to, copies, draft, preview, print_what, color, feed,
quality, y_resolution, selection)

Het 4de argument is het aantal copies. Wat gebeurd er als je hem als volgt gebruikt

ExecuteExcel4Macro _
"PRINT(2,1,2,[COLOR="Red"]2[/COLOR],,,,,,,,2,""\\fs-heijkant\Panasonic DP-C265 op Ne07:"",,TRUE,,FALSE)"

 

[Imod]

Ik heb nu deze macro op 1 knop gezet

Sub Macro_aantal_stuks()
Application.ActivePrinter = "\\fs-heijkant\Panasonic DP-C265 op Ne07:"
ExecuteExcel4Macro _
"PRINT(2,1,2,10,,,,,,,,2,""\\fs-heijkant\Panasonic DP-C265 op Ne07"",,TRUE,,FALSE)"
End Sub

Deze print voor en achterzijde en 10 stuks uit - bij 20 of 30 stuks moet er steeds nog 1x op de knop gedrukt worden.
Het is niet nodig om op de kopie af het aantal te bepalen,

Hier ben ik mee geholpen,
Bedankt Rudi/Luc