keuze printer toevoegen in macro excel

[Boelie72]

Een tijdje terug heb ik hier de volgende macro mogen krijgen. Echter die gene waar ik het voor gemaakt heb is nu in het bezit van 2 printers. Dus mijn vraag is kan ik onderstaande macro een regel toevoegen die vraagt op welke printer ik wil printen? Heb zelf al iets geprobeerd maar dan krijg ik wel de keuze maar hij print dan alle pagina's ipv alleen die gene die ingevuld zijn.
Alvast bedankt

Sub print_januari()
'
' print_januari Macro
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In Sheets
Sh.PageSetup.PrintArea = Sh.Range("a1:r36").Address 'het adres voor januari
If Application.CountIfs(Sh.Range("r6"), ">0") > 0 Then Sh.PrintOut

Next Sh
End Sub

 

[tkint]

Beste,

De macro bepaalt wat afgedrukt wordt :

For Each Sh In Sheets
Sh.PageSetup.PrintArea = Sh.Range("a1:r36").Address 'het adres voor januari
If Application.CountIfs(Sh.Range("r6"), ">0") > 0 Then Sh.PrintOut
Next Sh

Dus deze instructies weghalen uit de vba-code.

 

[HSV]

Bv. met.

Sub print_januari()
'
' print_januari Macro
Dim Sh As Worksheet
Application.ScreenUpdating = False
If Application.Dialogs(xlDialogPrinterSetup).Show Then
 For Each Sh In Sheets
   Sh.PageSetup.PrintArea = Sh.Range("a1:r36").Address 'het adres voor januari
   If Sh.Range("r6") > 0 Then Sh.PrintOut
 Next Sh
End If
End Sub

 

[Boelie72]

Bv. met.

Code:
Sub print_januari()
'
' print_januari Macro
Dim Sh As Worksheet
Application.ScreenUpdating = False
If Application.Dialogs(xlDialogPrinterSetup).Show Then
For Each Sh In Sheets
Sh.PageSetup.PrintArea = Sh.Range("a1:r36").Address 'het adres voor januari
If Sh.Range("r6") > 0 Then Sh.PrintOut
Next Sh
End If
End Sub

Top Harry!
Dit is het.... Ik zat steeds op de verkeerde regel te werken dus. Mooi Bedankt!