Salut à tous
Ayant deux imprimante sur mon ordinateur; comment selectionner l imprimante
que je veux utiliser sans modifier l imprimante par defaut de windows?
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
"louis" a écrit dans le message de news:bqfsni$902$
Salut à tous Ayant deux imprimante sur mon ordinateur; comment selectionner l imprimante que je veux utiliser sans modifier l imprimante par defaut de windows? Merci
Bonjour/soir,
Tu peux essayer ceci: Private Sub Command1_Click() Dim objPrinter As Printer Dim DefautPrinter As String
DefautPrinter = Printer.DeviceName
For Each objPrinter In Printers If objPrinter.DeviceName = "Microsoft Office Document Image Writer" Then Set Printer = objPrinter End If Next objPrinter
Printer.Print "Hello!"
For Each objPrinter In Printers If objPrinter.DeviceName = DefautPrinter Then Set Printer = objPrinter End If Next objPrinter End Sub
Sinon, j'ai l'impression qu'il faudra passer par les API Windows...
"louis" <louisun27@oreka.com> a écrit dans le message de
news:bqfsni$902$1@news-reader3.wanadoo.fr
Salut à tous
Ayant deux imprimante sur mon ordinateur; comment selectionner l
imprimante que je veux utiliser sans modifier l imprimante par defaut
de windows? Merci
Bonjour/soir,
Tu peux essayer ceci:
Private Sub Command1_Click()
Dim objPrinter As Printer
Dim DefautPrinter As String
DefautPrinter = Printer.DeviceName
For Each objPrinter In Printers
If objPrinter.DeviceName = "Microsoft Office Document Image Writer"
Then
Set Printer = objPrinter
End If
Next objPrinter
Printer.Print "Hello!"
For Each objPrinter In Printers
If objPrinter.DeviceName = DefautPrinter Then
Set Printer = objPrinter
End If
Next objPrinter
End Sub
Sinon, j'ai l'impression qu'il faudra passer par les API Windows...
"louis" a écrit dans le message de news:bqfsni$902$
Salut à tous Ayant deux imprimante sur mon ordinateur; comment selectionner l imprimante que je veux utiliser sans modifier l imprimante par defaut de windows? Merci
Bonjour/soir,
Tu peux essayer ceci: Private Sub Command1_Click() Dim objPrinter As Printer Dim DefautPrinter As String
DefautPrinter = Printer.DeviceName
For Each objPrinter In Printers If objPrinter.DeviceName = "Microsoft Office Document Image Writer" Then Set Printer = objPrinter End If Next objPrinter
Printer.Print "Hello!"
For Each objPrinter In Printers If objPrinter.DeviceName = DefautPrinter Then Set Printer = objPrinter End If Next objPrinter End Sub
Sinon, j'ai l'impression qu'il faudra passer par les API Windows...
"François Picalausa" a écrit dans le message de news: #9gEZ#
"louis" a écrit dans le message de news:bqfsni$902$ > Salut à tous > Ayant deux imprimante sur mon ordinateur; comment selectionner l > imprimante que je veux utiliser sans modifier l imprimante par defaut > de windows? Merci
Bonjour/soir,
Tu peux essayer ceci: Private Sub Command1_Click() Dim objPrinter As Printer Dim DefautPrinter As String
DefautPrinter = Printer.DeviceName
For Each objPrinter In Printers If objPrinter.DeviceName = "Microsoft Office Document Image
Writer"
Then Set Printer = objPrinter End If Next objPrinter
Printer.Print "Hello!"
For Each objPrinter In Printers If objPrinter.DeviceName = DefautPrinter Then Set Printer = objPrinter End If Next objPrinter End Sub
Sinon, j'ai l'impression qu'il faudra passer par les API Windows...
"François Picalausa" <fpicalausa@chez.com> a écrit dans le message de news:
#9gEZ#CuDHA.536@tk2msftngp13.phx.gbl...
"louis" <louisun27@oreka.com> a écrit dans le message de
news:bqfsni$902$1@news-reader3.wanadoo.fr
> Salut à tous
> Ayant deux imprimante sur mon ordinateur; comment selectionner l
> imprimante que je veux utiliser sans modifier l imprimante par defaut
> de windows? Merci
Bonjour/soir,
Tu peux essayer ceci:
Private Sub Command1_Click()
Dim objPrinter As Printer
Dim DefautPrinter As String
DefautPrinter = Printer.DeviceName
For Each objPrinter In Printers
If objPrinter.DeviceName = "Microsoft Office Document Image
Writer"
Then
Set Printer = objPrinter
End If
Next objPrinter
Printer.Print "Hello!"
For Each objPrinter In Printers
If objPrinter.DeviceName = DefautPrinter Then
Set Printer = objPrinter
End If
Next objPrinter
End Sub
Sinon, j'ai l'impression qu'il faudra passer par les API Windows...
"François Picalausa" a écrit dans le message de news: #9gEZ#
"louis" a écrit dans le message de news:bqfsni$902$ > Salut à tous > Ayant deux imprimante sur mon ordinateur; comment selectionner l > imprimante que je veux utiliser sans modifier l imprimante par defaut > de windows? Merci
Bonjour/soir,
Tu peux essayer ceci: Private Sub Command1_Click() Dim objPrinter As Printer Dim DefautPrinter As String
DefautPrinter = Printer.DeviceName
For Each objPrinter In Printers If objPrinter.DeviceName = "Microsoft Office Document Image
Writer"
Then Set Printer = objPrinter End If Next objPrinter
Printer.Print "Hello!"
For Each objPrinter In Printers If objPrinter.DeviceName = DefautPrinter Then Set Printer = objPrinter End If Next objPrinter End Sub
Sinon, j'ai l'impression qu'il faudra passer par les API Windows...
