Selectionner une imprimante

Bonjour je suis sur un fichier avec du vba qui a besoin de lancer des impressions sur 2 imprimantes automatiquement j'ai donc renseigner ce code pour la premiere imprimante mais rien a faire j'ai une erreur :

Private Sub test()

Application.ActivePrinter = "\\srvjops10\prjocolor1"
        Sheets("Suivi").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

Bonjour,

Il y a déjà quelques années que je n'ai plus d'imprimante > mais testons quand même ...

MsgBox Application.ActivePrinter devrait te donner le nom de l'imprimante par défaut > noter l'information ...

Exemple : "Hp LaserJet 2100 sur Ne00:"

Si tu veux le nom et le no "Ne0x" d'une autre imprimante > il suffit de la mettre temporairement par défaut > puis exécuter à nouveau MsgBox Application.ActivePrinter > noter l'information ...

Exemple : "Hp LaserJet 4200 sur Ne01:

Private Sub test()

Application.ActivePrinter = "Hp LaserJet 2100 sur Ne00:"  '' << Inscrire l'information de l'imprimante souhaitée
        Sheets("Suivi").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

ric

Bonjour toute l'équipe. Une proposition :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim printer As String

    Application.Dialogs(xlDialogPrinterSetup).Show
    printer = Application.ActivePrinter
    ActiveSheet.PrintOut
End Sub

Ok je vous remercie j’avais pas compris le principe avec le Ne0... après l’imprimante mon problème vient de là.

Encore merci