Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

2 question sur l'impression de formulaires

1 réponse
Avatar
Gadget
Salut à tous.
2 chtites questions :
1 - Comment déterminer à partir de vba l'imprimante sur laquelle va être
envoyé un formulaire ?
2 - Peut-on simplement imprimer un formulaire au recto et un autre au
verso - cad comment faire de 2 travaux d'impression consécutifs (1 page puis
1 page), un travail unique (les 2 pages considérées comment un seul
document).
Voilàvoilà.
Merci de vos réponses.

1 réponse

Avatar
Jacques93
Bonjour Gadget,

Pour le point 1, par exemple :

Private Function DefaultPrinter() As String
Dim strComputer As String
Dim objWMIService As Object
Dim colInstalledPrinters As Object
Dim ObjPrinter As Object

strComputer = "."
Set objWMIService=GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!" & _
strComputer & "rootcimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")

For Each ObjPrinter In colInstalledPrinters
Debug.Print ObjPrinter.Name
If ObjPrinter.Default Then
DefaultPrinter = ObjPrinter.Name
Exit For
End If
Next
End Function

Salut à tous.
2 chtites questions :
1 - Comment déterminer à partir de vba l'imprimante sur laquelle va être
envoyé un formulaire ?
2 - Peut-on simplement imprimer un formulaire au recto et un autre au
verso - cad comment faire de 2 travaux d'impression consécutifs (1 page puis
1 page), un travail unique (les 2 pages considérées comment un seul
document).
Voilàvoilà.
Merci de vos réponses.







--
Cordialement,

Jacques.