Impression USF avec selection imprimante

Provence Vintage

XLDnaute Occasionnel
Bonjour le forum,

j'ai un code avec lequel je selectionne l'imprimante, par contre il n'en tient pas compte, comment puis-je corriger,

#Private Sub CommandButton2_Click()
Dim Couleur As String
Application.ScreenUpdating = False
Couleur = Me.BackColor
Me.BackColor = &H80000009
Me.BackColor = Couleur
Application.Dialogs(xlDialogPrinterSetup).Show
Me.printForm
On Error GoTo suite
suite: 'étiquette
On Error GoTo 0
Application.ScreenUpdating = True
End Sub#




merci
bonne journée
 

Discussions similaires

Statistiques des forums

Discussions
312 581
Messages
2 089 910
Membres
104 303
dernier inscrit
Patdec