daddyger.blogg.se

If fso.FileExists(v) Then oPDF.PrintFile v Set oPDF = New PDFCreator.PdfCreatorObj 'PDFCreator.clsPDFCreator Set fso = CreateObject("Scripting.FileSystemObject") Sub PDFCreatorCombine(sPDFName() As String, sMergedPDFname As String)ĭim oPDF As PDFCreator.PdfCreatorObj, q As PDFCreator.Queue ' Designed for early bind, set reference to: PDFCreator - Your OpenSource PDF Solution 'Macro Purpose: Print to PDF file using PDFCreator If vbYes = MsgBox(s, vbYesNo + vbQuestion, "Open?") Then Shell ("cmd /c " & """" & s & """") Please try again.", _Īnyone know any way to alter this to put a PDF watermark/background behind it or any other way for putting PDF's as background? 'Inform user of error, and go to cleanup section 'Release objects and terminate PDFCreator Loop Until Dir(sPDFPath & sPDFName) = sPDFName 'Wait until the file shows up before closing PDF Creator 'Wait until the print job has entered the print queue If Dir(sPDFPath & sPDFName) = sPDFName Then Kill (sPDFPath & sPDFName)ĪctiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator" Shell "taskkill /f /im PDFCreator.exe", vbHide If pdfjob.cStart("/NoProcessingAtStartup") = False Then 'Check if PDFCreator is already running and attempt to kill the process if so

Set pdfjob = New PDFCreator.clsPDFCreator 'Activate error handling and turn off screen updates If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub 'Check if worksheet is empty and exit if so SPDFPath = ActiveWorkbook.path & Application.PathSeparator '/// Change the output file name here! /// ' Designed for early bind, set reference to PDFCreator 'Author : Ken Puls ('Macro Purpose: Print to PDF file using PDFCreator The code I have so far for saving a sheet as PDF in PDF Creator 1.7.3 is as following, it works flawlessly but only saves your sheet to PDF and doesnt add a watermark: Version 1.7.3 does support Excel VBA, but this version doesnt support adding watermarks. You can setup the program to automatically add a PDF as a background to all your PDF's, however v2.0 and v2.1 do not support Excel VBA. I've been looking into PDFCreator, and PDFCreator2.0 and 2.1 support adding PDF backgrounds to your PDF. I've searched the internet far and wide for an solution but couldn't find any for this, many questions regarding this were unanswered.Īs far as I know this isn't possible in Excel itself and will require a 3rd party program.

Reason for this is that the header and footer settings in Excel just aren't advanced enough and can't offer real high quality pictures.

I'd like to add a PDF-background to this PDF, like a watermark. ExportAsFixedFormat method), works flawlessly. I have a sheet that gets saved as PDF (currently using the.