Excel Downloads Forums - Afficher un message

Natiffar · 07/12/2005, 18h45

Salut ebinet !

J'ai rencontré le même type de difficulté et j'ai fini par opter pour le code suivant :

Code:

Dim dlganswer As Boolean
        
        dlganswer = Application.Dialogs(xlDialogPrinterSetup).Show

    If dlganswer = True Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True
    End If

Certes, c'est moins convivial pour l'utilisateur, mais au moins, si l'imprimante vient à changer, tu ne devras pas modifier ton code.

@+

Natiffar :evil:

07/12/2005, 18h45	#2 (permalink)
Natiffar XLDnaute Nouveau Date d'inscription: juin 2005 Messages: 38	Re:imprimante sur port usb variable Salut ebinet ! J'ai rencontré le même type de difficulté et j'ai fini par opter pour le code suivant : Code: Dim dlganswer As Boolean dlganswer = Application.Dialogs(xlDialogPrinterSetup).Show If dlganswer = True Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True End If Certes, c'est moins convivial pour l'utilisateur, mais au moins, si l'imprimante vient à changer, tu ne devras pas modifier ton code. @+ Natiffar :evil: