Impression USF avec selection imprimante

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