Database Development
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Remember me

Go Back   Dev Articles Community ForumsDatabasesDatabase Development

Add This Thread To:   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Display Modes
Unread Dev Articles Community Forums Sponsor:
Old November 4th, 2011, 08:39 AM
MedicIT MedicIT is offline
Registered User
Dev Articles Newbie (0 - 499 posts)
Join Date: Aug 2009
Posts: 9 MedicIT User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 2 h 33 m 44 sec
Reputation Power: 0
Adding password to PDFCreator

I'm using vba coding borrowed from Ken Puls to PDF a report which works like a charm. I'm just wondering if anyone would know how I can get PDFCreator to add a password through vba coding.

Private Sub PDFReport()
'Sub PrintAccessReportToPDF_Early()
'Author : Ken Puls (
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from )
' Designed for early bind, set reference to PDFCreator
' If the output report is in black and white, go into the report followed by "Page Setup", "Page Setup", "Page", "Select Printer", "Properties".

Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim sPrinterName As String
Dim sReportName As String
Dim lPrinters As Long
Dim lPrinterCurrent As Long
Dim lPrinterPDF As Long
Dim prtDefault As Printer

'/// Change the report and output file name here! ///
sReportName = Me.ReferenceNumber & " Incident Report "
sPDFName = sReportName & ".pdf"
sPDFPath = Application.CurrentProject.Path & "\Incident Report Backup\PDF"

'Resolve index number of printers to allow changing and preserving
sPrinterName = Application.Printer.DeviceName
On Error Resume Next
For lPrinters = 0 To Application.Printers.Count
Set Application.Printer = Application.Printers(lPrinters)

Set prtDefault = Application.Printer
Select Case prtDefault.DeviceName
Case Is = sPrinterName
lPrinterCurrent = lPrinters
Case Is = "PDFCreator"
lPrinterPDF = lPrinters
Case Else
'do nothing
End Select
Next lPrinters
On Error GoTo 0

'Change the default printer
Set Application.Printer = Application.Printers(lPrinterPDF)
Set prtDefault = Application.Printer

'Start PFF Creator
Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator. Please go into Task Manager, then Process and stop PDFCreator", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
End With

'Print the document to PDF
DoCmd.OpenReport "IncidentReport"

'Wait until the print job has entered the print queue
Do Until pdfjob.cCountOfPrintjobs = 1
pdfjob.cPrinterStop = False

'Wait until PDF creator is finished then release the objects
Do Until pdfjob.cCountOfPrintjobs = 0

'Reset the (original) default printer and release PDF Creator
Set Application.Printer = Application.Printers(lPrinterCurrent)
Set pdfjob = Nothing

MsgBox "The schedule has been printed and is located in " & sPDFPath, vbOKOnly, sPDFName

End Sub

Any help is greatly appreciated.

Reply With Quote

Viewing: Dev Articles Community ForumsDatabasesDatabase Development > Adding password to PDFCreator

Developer Shed Advertisers and Affiliates

Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 

Powered by: vBulletin Version 3.0.5
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

© 2003-2019 by Developer Shed. All rights reserved. DS Cluster - Follow our Sitemap