Francois73
XLDnaute Occasionnel
bonjour le Forum
Bonjour à toutes et à tous
je cherche à imprimer des feuilles en pdf, j'ai un code qui fonctionne à ceci prés qu'il m'imprime toutes les feuilles et en fait je souhaite qu'il m'imprime toutes les feuilles sauf 2 qui sont la première et la dernière
ces deux feuilles sont nommées pour le première "procedure" et la derniere "oriclef"
voici le code
Sub pdf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path
.cOption("AutosaveFilename") = Application.InputBox("INDIQUEZ LE NOM DE SAUVEGARDE ", "Choix du nom", "pesée alpage-" & Format(Date, "yyyymmdd"), , , , , 2)
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
End Sub
merci de votre aide toujours precieuse
Bonjour à toutes et à tous
je cherche à imprimer des feuilles en pdf, j'ai un code qui fonctionne à ceci prés qu'il m'imprime toutes les feuilles et en fait je souhaite qu'il m'imprime toutes les feuilles sauf 2 qui sont la première et la dernière
ces deux feuilles sont nommées pour le première "procedure" et la derniere "oriclef"
voici le code
Sub pdf()
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path
.cOption("AutosaveFilename") = Application.InputBox("INDIQUEZ LE NOM DE SAUVEGARDE ", "Choix du nom", "pesée alpage-" & Format(Date, "yyyymmdd"), , , , , 2)
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ThisWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = DefaultPrinter
.cClearCache
.cClose
End With
Set pdfjob = Nothing
End Sub
merci de votre aide toujours precieuse