Impression RECTO-VERSO sur imprimante qui le gère

[Compte Supprimé 979]

Bonjour à tous,

J'ai réussi à trouver un code GENIAL qui permet d'imprimer un document en recto-verso sur une imprimante qui le gère et sans passer par un tas de manip. du style SendKeys()

Je mets donc ici le fichier qui fait une impression sur word, mais peut le faire sur n'importe qu'elle appli

Au plaisir du partage

 

[MJ13]

Re : Impression RECTO-VERSO sur imprimante qui le gère

Bonjour Bruno

Merci beaucoup pour ce petit utilitaire qui a l'air de fonctionner .

J'ai juste du changer la ligne avec mon imprimante (il suffit de copier le nom de l'imprimante en faisant F2 puis Ctrl+c dans la liste des imprimantes).

'Samsung ML-2850 Series PS
sPrinter = "Samsung ML-2850 Series PS"
  oWord.ActivePrinter = sPrinter

 

[Compte Supprimé 979]

Re : Impression RECTO-VERSO sur imprimante qui le gère

Salut Michel

Effectivement, j'avais codé la mienne en dur c'est corrigé avec un joli bouton en prime

A+

 

[Saltimbanque]

Re : Impression RECTO-VERSO sur imprimante qui le gère

Bonjour BrunoM45,

Je souhaite savoir si il est possible d’intégrer ton magnifique code dans cette macro trouvée sur la toile, et que je te joint afin de pouvoir imprimer sur une Ricoh 2050 qui ce trouve sur le réseau de ma boite.
Merci d'avance de me venir en aide.

Bruno. (et oui moi aussi)


Sub PdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
sNomPDF = ActiveSheet.Range("W7") & ".pdf" 'Nom du fichier dans la cellule W7+extension.pdf
sCheminPDF = "C:\Dossier T" & "\" 'Dossier de déstination de l'enregistrement
Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")
With JobPDF
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PdfCreator"
Exit Sub
End If ' 0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sCheminPDF
.cOption("AutosaveFilename") = sNomPDF
.cOption("AutosaveStartStandardProgram") = 0
.cOption("UpdateInterval") = 0
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator" 'Fichier dans la file d'attente
Do Until JobPDF.cCountOfPrintjobs = 1
DoEvents
Loop
JobPDF.cPrinterStop = False
Do Until JobPDF.cCountOfPrintjobs = 0 'Attendre que la file d'attente soit vide
DoEvents
Loop
JobPDF.cClose
Set JobPDF = Nothing
End Sub