l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou il y
a plusieurs imprimantes installées et que l'imprimante par défaut n'est pas
celle sur laquelle je veux travailler. est il possible via VB de changer
l'imprimante par défaut... ???
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
Clive Lumb
Rien de plus simple... Voici une routine que j'utilise pour imprimer des étiquettes sur un P-Touch
Dim DefPrinter As Printer Dim MyPrinter As Printer Dim LabelPrinterAvailable As Boolean
Set DefPrinter = Printer
For Each MyPrinter In Printers 'Debug.Print MyPrinter.DeviceName If MyPrinter.DeviceName = "Brother PT-9200PC/9400" Then LabelPrinterAvailable = True Set Printer = MyPrinter Exit For Else LabelPrinterAvailable = False End If Next MyPrinter
If LabelPrinterAvailable Then 'imprimer ...... 'remettre l'imprimante par défaut For Each MyPrinter In Printers If MyPrinter.DeviceName = DefPrinter.DeviceName Then Set Printer = MyPrinter Exit For End If Next MyPrinter EndIf
Clive
"jc2nantes" a écrit dans le message de news:%
salut!
l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou il
y
a plusieurs imprimantes installées et que l'imprimante par défaut n'est
pas
celle sur laquelle je veux travailler. est il possible via VB de changer l'imprimante par défaut... ???
suis je bien clair ?!
à plus et merci!
jc2nantes
Rien de plus simple...
Voici une routine que j'utilise pour imprimer des étiquettes sur un P-Touch
Dim DefPrinter As Printer
Dim MyPrinter As Printer
Dim LabelPrinterAvailable As Boolean
Set DefPrinter = Printer
For Each MyPrinter In Printers
'Debug.Print MyPrinter.DeviceName
If MyPrinter.DeviceName = "Brother PT-9200PC/9400" Then
LabelPrinterAvailable = True
Set Printer = MyPrinter
Exit For
Else
LabelPrinterAvailable = False
End If
Next MyPrinter
If LabelPrinterAvailable Then
'imprimer
......
'remettre l'imprimante par défaut
For Each MyPrinter In Printers
If MyPrinter.DeviceName = DefPrinter.DeviceName Then
Set Printer = MyPrinter
Exit For
End If
Next MyPrinter
EndIf
Clive
"jc2nantes" <NOSPAMjc2nantes@wanadoo.fr> a écrit dans le message de
news:%23nJVuVUmDHA.2000@TK2MSFTNGP12.phx.gbl...
salut!
l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou il
y
a plusieurs imprimantes installées et que l'imprimante par défaut n'est
pas
celle sur laquelle je veux travailler. est il possible via VB de changer
l'imprimante par défaut... ???
Rien de plus simple... Voici une routine que j'utilise pour imprimer des étiquettes sur un P-Touch
Dim DefPrinter As Printer Dim MyPrinter As Printer Dim LabelPrinterAvailable As Boolean
Set DefPrinter = Printer
For Each MyPrinter In Printers 'Debug.Print MyPrinter.DeviceName If MyPrinter.DeviceName = "Brother PT-9200PC/9400" Then LabelPrinterAvailable = True Set Printer = MyPrinter Exit For Else LabelPrinterAvailable = False End If Next MyPrinter
If LabelPrinterAvailable Then 'imprimer ...... 'remettre l'imprimante par défaut For Each MyPrinter In Printers If MyPrinter.DeviceName = DefPrinter.DeviceName Then Set Printer = MyPrinter Exit For End If Next MyPrinter EndIf
Clive
"jc2nantes" a écrit dans le message de news:%
salut!
l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou il
y
a plusieurs imprimantes installées et que l'imprimante par défaut n'est
pas
celle sur laquelle je veux travailler. est il possible via VB de changer l'imprimante par défaut... ???
suis je bien clair ?!
à plus et merci!
jc2nantes
jc2nantes
ça marche, merci!
"Clive Lumb" a écrit dans le message de news:
Rien de plus simple... Voici une routine que j'utilise pour imprimer des étiquettes sur un
P-Touch
Dim DefPrinter As Printer Dim MyPrinter As Printer Dim LabelPrinterAvailable As Boolean
Set DefPrinter = Printer
For Each MyPrinter In Printers 'Debug.Print MyPrinter.DeviceName If MyPrinter.DeviceName = "Brother PT-9200PC/9400" Then LabelPrinterAvailable = True Set Printer = MyPrinter Exit For Else LabelPrinterAvailable = False End If Next MyPrinter
If LabelPrinterAvailable Then 'imprimer ...... 'remettre l'imprimante par défaut For Each MyPrinter In Printers If MyPrinter.DeviceName = DefPrinter.DeviceName Then Set Printer = MyPrinter Exit For End If Next MyPrinter EndIf
Clive
"jc2nantes" a écrit dans le message de news:% > salut! > > l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou
il
y > a plusieurs imprimantes installées et que l'imprimante par défaut n'est pas > celle sur laquelle je veux travailler. est il possible via VB de changer > l'imprimante par défaut... ??? > > suis je bien clair ?! > > à plus et merci! > > jc2nantes > > >
ça marche, merci!
"Clive Lumb" <clumb@free.fr> a écrit dans le message de
news:eMYJ1jUmDHA.1728@TK2MSFTNGP11.phx.gbl...
Rien de plus simple...
Voici une routine que j'utilise pour imprimer des étiquettes sur un
P-Touch
Dim DefPrinter As Printer
Dim MyPrinter As Printer
Dim LabelPrinterAvailable As Boolean
Set DefPrinter = Printer
For Each MyPrinter In Printers
'Debug.Print MyPrinter.DeviceName
If MyPrinter.DeviceName = "Brother PT-9200PC/9400" Then
LabelPrinterAvailable = True
Set Printer = MyPrinter
Exit For
Else
LabelPrinterAvailable = False
End If
Next MyPrinter
If LabelPrinterAvailable Then
'imprimer
......
'remettre l'imprimante par défaut
For Each MyPrinter In Printers
If MyPrinter.DeviceName = DefPrinter.DeviceName Then
Set Printer = MyPrinter
Exit For
End If
Next MyPrinter
EndIf
Clive
"jc2nantes" <NOSPAMjc2nantes@wanadoo.fr> a écrit dans le message de
news:%23nJVuVUmDHA.2000@TK2MSFTNGP12.phx.gbl...
> salut!
>
> l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou
il
y
> a plusieurs imprimantes installées et que l'imprimante par défaut n'est
pas
> celle sur laquelle je veux travailler. est il possible via VB de changer
> l'imprimante par défaut... ???
>
> suis je bien clair ?!
>
> à plus et merci!
>
> jc2nantes
>
>
>
Rien de plus simple... Voici une routine que j'utilise pour imprimer des étiquettes sur un
P-Touch
Dim DefPrinter As Printer Dim MyPrinter As Printer Dim LabelPrinterAvailable As Boolean
Set DefPrinter = Printer
For Each MyPrinter In Printers 'Debug.Print MyPrinter.DeviceName If MyPrinter.DeviceName = "Brother PT-9200PC/9400" Then LabelPrinterAvailable = True Set Printer = MyPrinter Exit For Else LabelPrinterAvailable = False End If Next MyPrinter
If LabelPrinterAvailable Then 'imprimer ...... 'remettre l'imprimante par défaut For Each MyPrinter In Printers If MyPrinter.DeviceName = DefPrinter.DeviceName Then Set Printer = MyPrinter Exit For End If Next MyPrinter EndIf
Clive
"jc2nantes" a écrit dans le message de news:% > salut! > > l'objet PRINTER travaille avec l'imprimante par défaut. dans le cas ou
il
y > a plusieurs imprimantes installées et que l'imprimante par défaut n'est pas > celle sur laquelle je veux travailler. est il possible via VB de changer > l'imprimante par défaut... ??? > > suis je bien clair ?! > > à plus et merci! > > jc2nantes > > >
