Bonjour,
Avec VBA Excel 2010 - Windows 10

Après une journée de tentatives, je ne parviens pas à imprimer ma Userform "Page" sur l'iune des mprimantes que je veux sélectionner !
soit via xlDialogPrinterSetup, soit xlDialogPrint ?
Le code est pourtant simple ? Merci de votre aide, j'ai cherché sur de nombreux sites, aucune solution proposée ne marche.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub CommandButton1_Click()
SelectPrinter
  Page.PrintForm
End Sub
 
Public Sub SelectPrinter()
Dim fileOK As Boolean
Dim ActuelleImpr As String
With Application
    ActuelleImpr = .ActivePrinter
    fileOK = .Dialogs(xlDialogPrinterSetup).Show
'     fileOK = .Dialogs(xlDialogPrint).Show
    NewPrinter = .ActivePrinter
End With
 
If Not fileOK Then
     MsgBox "User cancelled"
  Else
    NewPrinter = Application.ActivePrinter  ' NewPrinter est une var Public
 End If
MsgBox "NewPrinter est : " + NewPrinter
End Sub