Zone d'impression mal définie
I
Bonjour à tous .......
alors que je définis la zone d'impression sur ma feuil3, lors de l'édition du fichier PDF les autres feuilles de mon classeur sont imprimées elles aussi.
Sub ToPdf()
Sheets("Feuil3").Select
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
NomExcel = ThisWorkbook.Name
NomPdf = [O13] & " " & [J3].Value & ".Pdf"
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ThisWorkbook.Path
.cOption("AutosaveFilename") = NomPdf
.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 Submerci pour votre aide
Bonjour et bienvenue
Tu as :
ThisWorkbook.PrintOutEssaye avec :
ActiveSheet.PrintOutAmicalement
Nad
I
Merci Nad et bonjour à toi !
Ca marche nickel