Printer.copie = (2) est-il possible d'envoyer 1 vers tel imprimante et tel vers

Signaler
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
-
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
-
Salut
dans mon prog de facturation , il fait a la sortie deux copie je voudrais savoir si c'est possible
qu'il y aie une copie vers une imprimante par default et une autre copie vers une autre imprimante
comme sa je pourrait faire deux copie vers l'imprimante par default et une vers convertion pdf (imprimante virtuelle)

Merci

3 réponses

Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
6
l'objet printer par defaut est ton imprimante par defaut de windows

mais si tu fais Set printer = "Nom exacte d'une Imprimante"

alors printer est lié a ta nouvelle imprimante et plus à celle par defaut de windows (jousqu' a tu refasse un set ou que tu quitte ton prog)

exemple :

For Each MyPrinter In Printers
If MyPrinter.DeviceName = "Nom de l'imprimante" Then
Set Printer = MyPrinter
Exit For
End If
Next
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
je vient de faire

set printer = "Generic PostScript Printer"

et il dit un objet est obligatoire
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
6
comme ca cela ne marche pas, tu ne peux pas dire un objet = un string !!!

utilise cette boucle pour selectionner l'objet qui t'interresse

For Each MyPrinter In Printers
If MyPrinter.DeviceName = "Nom de l'imprimante" Then
Set Printer = MyPrinter
Exit For
End If
Next