2 question sur l'impression de formulaires

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #5442941
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.

Publicité
Poster une réponse
Anonyme