Je vous rappelle que j'utilise le vb6 et comme vous voyez dans le code j'utilise un contrôle CommonDialog puis j'indique le nombre de copie etc puis j'affiche l'objet ShowPrinter et j'aurai l'imprimante par défaut comme imprimante que je peut changer ensuite dans l'utilitaire de l'imprimnate.
DessineType c'est un objet dont voici un exemple:
Private Sub dessineType(dest As Object)
'Ceci est un exemple
If Not dest Is Printer Then Cls
dest.Font.NAME = "Courier New"
dest.Font.Size = 14
dest.Font.Bold = True
dest.Print Spc(3); Text1.text
dest.Font.Size = 10
dest.Print ""
dest.Font.Size = 8
dest.Print Spc(15); Label1.Caption
If dest Is Printer Then Printer.EndDoc
End Sub
