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.
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
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.
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.
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.