@felixgander wrote:

My company have a message server， it is background service， the service receive message and send to printer.
we want to use pdf printer to save message ， What products can meet the needs ?

Posts: 2

Participants: 2

Read full topic

@Wurzl wrote:

Hallo zusammen,

mit der neuen Version des PDFCreator wird bei der Erstellung eines PDF nicht mehr nach dem Eigentümer-Passwort gefragt (WIN 10 64 Prof.. Installation als Admin, Aufruf als eingeschränkter User, ohne MS-Konto)

Vorgehensweise:

Profileinstellung/PDF/Sicherheit => Verschlüsseln angehakt, Passwort angehakt, Passwörter hinterlegen ist leer, Verschlüsselungsgrad ist "Mittel", Dateiformat = PDF/A-1b

Das gleiche Verhalten habe ich, wenn Passwort nicht angehakt ist.

Vielmehr wird nie ein Passwort gefragt

Ich möchte nach dem Eigentümerpasswort gefragt werden, wenn ich die PDF-Datei erzeuge. Bei Version 2.4.1 war noch alles ok. Version 2.5.0 habe ich nicht getestet.

Vielleicht mache ich auch einen Anwenderfehler. Wer kann mir helfen bzw. einen Lösungstip geben?

Servus
Wurzl

Posts: 2

Participants: 2

Read full topic

@axxess wrote:

It worked fine with PDFCreator 2.0.2 on Win7x64
With version 2.5.1 on the same pc's PDF creation also works fine and the document is opened in Acrobat Reader DC. However the process "pdfcreator.exe" does not disappear and a "100%" window stays open, cannot be moved and can only be closed in task manager.

As we don't know how to solve the issue it would be nice to know if there is an archive to download earlier versions.

thanks
Steve

Posts: 1

Participants: 1

Read full topic

@cstremel wrote:

I keep getting this error

[Error] pdfforge.PDFCreator.Core.Ghostscript.OutputDevices.PrintingDevice.AddDeviceSpecificParameters: The default printer (PDFCreator) is invalid!

and it basically renders the function to send an email over SMTP useless because of this error. Can someone please assist?

Thanks

Posts: 1

Participants: 1

Read full topic

@gmaxey wrote:

I have been experimenting with the COM interface settings from Microsoft Word with VBA. I have been able to 1) print a document to a PDF file, 2) Print a document to a PDF file and attach the PDF file to a email using the Email Client. However, when I try to 3) print a document to a PDF file and send as an attachment using the EmailSmtp settings I am getting a runtime error on each statement that includes the EmailSmtp settings defined in the documentation.

'Email client settings.
If bEmailWithClient Then
'These all work as described
.SetProfileSetting "EmailClientSettings.Enabled", bEmailWithClient 'Enables the EmailClient action
.SetProfileSetting "EmailClientSettings.Recipients", strRecipients 'Recipients separated with ;
.SetProfileSetting "EmailClientSettings.Subject", strEmailSubj 'Subject line of the E-mail
.SetProfileSetting "EmailClientSettings.Content", strEmailBody 'Body text of the E-mail
.SetProfileSetting "EmailClientSettings.AddSignature", bEmailAddPDFSig
End If
'Email smtp settings
If bEmailWithSMTP Then
'Even though these settings are in the documentation, they aren't recognized.
'All resulting in a Run Time Errors e.g., "The property "EmailSmpt.Enabled" does not exist!
.SetProfileSetting "EmailSmtp.Enabled", bEmailWithSMTP
.SetProfileSetting "EmailSmtp.UserName", UserName
.SetProfileSetting "EmailSmtp.Password", ServerPW 'Password that is used to authenticate at the server
.SetProfileSetting "EmailSmtp.Port", Port
'and so on

Can anyone suggest what I might be doing wrong? End If

Posts: 1

Participants: 1

Read full topic

@mduke wrote:

Is there any way to print a PDF to monochrome black and white? I am trying to printing PDFs that look great, but they have varying shades of gray. When placed into a fax program, the grays are getting washed out. I'm wondering if I can change any settings in PDFCreator in order to create a true black and white image.

Posts: 1

Participants: 1

Read full topic

@hatnel wrote:

Hi,

i would like to know how can i save in PDFcreator each page separate from one source which has for example 20pages.
Can anyone help me with this ?

Thanks a lot.
Best regards,
Hatnel

Posts: 2

Participants: 2

Read full topic

@nikmagashi wrote:

Hello there,

Recently I am having a problem when I print documents to PDFCreator 2.4. I had 1.7 before and i had not this problem then. The problem that I am facing is that when I print a page the text that is inside the cells goes outside the cells when it gets printed in PDF..

It looks something like this:

I have try to change the settings for the page, margins etc but anything has solved my issue yet.

Has anyone seen this before that can help me with this

Posts: 3

Participants: 2

Read full topic

@fmerlet wrote:

Hello,

What is the translation of this code for convert a Lotus Document to pdf :this code is working with the version 1.7:

here the code :

%REM
Agent Grouper PDF
Created Nov 6, 2015 by Freddy Merlet/HO/VERITAS
Description: Comments for Agent
%END REM
Option Public

%REM
Agent Imprimer Mail PDF
Created Nov 6, 2015 by Freddy Merlet/HO/VERITAS
Description: Comments for Agent
%END REM

'--BEGIN (OPTIONS) --> CHOOSE FOLDER DIALOG BOX

%Include "LSCONST.LSS"

Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As String
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Dim spdfpath As String
Declare Function SHBrowseForFolder Lib "shell32" Alias "SHBrowseForFolderA" (lpbi As BrowseInfo ) As Long
Declare Function SHGetPathFromIDList Lib "shell32" Alias "SHGetPathFromIDListA"( ByVal pidList As Long, ByVal lpBuffer As String ) As Long
Declare Function FindWindow95 Lib "user32" Alias "FindWindowA" ( ByVallpClassName As Any, ByVal lpWindowName As Any ) As Long
Sub Initialize
'spdfpath = "C:\Notes\data\Dossier Tampon"
temppath = "\veuillez patienter...'"
On Error GoTo processError
Dim mode As String 'ouvert ou liste ou liste_select
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim objApp As Variant
Dim doc As NotesDocument
'Ouverture de pdfcreator
Dim PDFCreator As Variant

nbdoc = 1
Set uiview = workspace.CurrentView
verif = "erreur"
verif = uiview.Viewname
If verif = "erreur" Then
MsgBox "Sélectionner plusieurs mails (jusqu'à 20) avant de cliquer sur ce bouton."
Exit Sub
Else
Set collection = uiview.Documents
If collection.Count < 2 Then
MsgBox "Sélectionner plusieurs mails (jusqu'à 20) avant de cliquer sur ce bouton."
Exit Sub
ElseIf collection.Count > 20 Then
MsgBox "Ne pas sélectionner plus de 20 mails à la fois"
'on ouvre quand même un doc pour conserver les éléments sélectionnés
Set doc = collection.GetFirstDocument
Set uidoc = workspace.EditDocument(True, doc)
uidoc.Close
Exit Sub
Else
mode = "liste_select"
nbdoc = collection.Count
End If
End If
nomDefaut = Mid(Now, 7, 4) & Mid(Now, 4, 2) & Mid(Now, 1, 2) & " - " & uiview.Viewname
nomfichier = InputBox("Nom du fichier PDF à créer.", "", nomDefaut)
Set objApp = CreateObject( "Shell.Application" )

'spdfpath = ChooseFolder ( "CUSTOMIZE: Put your own custom prompt message here: " )


'msgBoxType = MB_OK + MB_ICONINFORMATION
'spdfpath =filenames = workspace.SaveFileDialog( _
'False,"File name",, "c:\")

'search the value folder in the bvprofile
Dim session As New NotesSession
Dim docprofile As NotesDocument
Dim dbprofile As NotesDatabase
Set dbprofile = session.CurrentDatabase
Set docprofile = dbprofile.GetProfileDocument( "BVProfile") 

Dim choices As Variant
choices = docprofile.GetItemValue( "choices" )


Dim response As Variant
response1 = workspace.Prompt (PROMPT_OKCANCELLIST, _
"Votre dossier favoris", _
"Sélectionnez votre dossier favoris sinon cliquez sur ""Cancel"".",  choices, choices)





Const BIF_NEWDIALOGSTYLE = &H00000040
Const BIF_NONEWFOLDERBUTTON = &H0000200
Dim objShell As Variant
Dim objFolder As Variant
Dim objFolderItem As Variant
Set objShell = CreateObject("Shell.Application")



Set objFolder = objShell.BrowseForFolder(0, "Dossier Favoris", BIF_NONEWFOLDERBUTTON + BIF_NEWDIALOGSTYLE, CStr(response1))



If Not (objFolder Is Nothing) Then
Set objFolderItem = objFolder.Self
MsgBox objFolderItem.Path

response =objFolderItem.Path

End If

Dim folder, msg, msgTitle As String
Dim msgBoxType As Long




spdfpath =response
If spdfpath="" Then
spdfpath = ChooseFolder ( "Sélection de votre dossier: " )

End if

objApp.Open(spdfpath)
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.CreateFolder(spdfpath & temppath) 'création dossier temp
Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")

If PDFCreator Is Nothing Then
MsgBox "Vérifier que PDFCreator est bien installé sur votre pc",,"PDFCreator n'est pas détecté"
End If

If Not PDFCreator.cStart("",True) GoTo processError

PDFCreator.cPrinterStop = True
PDFCreator.cClearCache
If mode = "liste_select" Then 'on a plusieurs docs sélectionnés
Set doc = collection.GetFirstDocument
Set uidoc = workspace.EditDocument(True, doc) 'on ouvre le premier en mode Edition
ElseIf mode = "liste" Then 'le mail n'est pas ouvert
Set uidoc = workspace.EditDocument(True) 'on l'ouvre en mode Edition
Else 'le mail est ouvert
Set doc = workspace.CurrentDocument.Document
Set uidoc = workspace.EditDocument(True, doc) 'on le ré-ouvre en mode Edition
End If
debut:
emetteur = uidoc.FieldGetText("From")
intitule = uidoc.FieldGetText("Subject")
'20 premiers caractères de l'émetteur - + les premiers caractères de l'intitulé pour faire max 100

'impression PDF
Dim PrinterPath As String
PrinterPath = "PDFCreator"
On Error GoTo impressionImpossible
Call uidoc.Print(1, 0, 0, False, PrinterPath)
On Error Resume Next
suite:
'fermeture du mail en mode Edition
Call uidoc.Close
If mode = "liste_select" Then 'si on a plusieurs docs
Set doc = collection.GetNextDocument (doc)
If Not doc Is Nothing Then 's'il en reste
Set uidoc = workspace.EditDocument(True, doc) 'on ouvre le suivant en mode Edition
GoTo debut
End If
End If
If nbdoc >0 Then
Do Until PDFCreator.cCountOfPrintjobs = nbdoc
Loop
With PDFCreator
.Ccombineall
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.coption("AutosaveDirectory")=spdfpath
.cOption("AutosaveFilename") = nomfichier & ".pdf"
.cOption("AutosaveFormat") = 0
End With
PDFCreator.cPrinterStop = False
While PDFCreator.cCountOfPrintjobs > 0
Sleep 1
Wend
End If
PDFCreator.cClose
testVide = False
Do Until testVide = True
Call deplace(testVide,spdfpath)
Loop
objFSO.DeleteFolder(spdfpath & temppath)
Exit Sub
impressionImpossible:
nbdoc = nbdoc-1
GoTo suite
fin:
Exit Sub
processError:
MsgBox "Vérifier que PDFCreator est bien installé sur votre pc",,"Fonctionnalité PDF n'est pas opérationnelle"
Print "Error: "+Error()+" Line: "+Cstr(Erl)
Resume fin

End Sub

Sub doublon(objFSO, debutNom, extension)
If Right(debutNom, 1) <> "." Then
Call doublon(objFSO, Left(debutNom, Len(debutNom)-1), Right(debutNom, 1) & extension)
ElseIf Left(Right(debutNom, 4),1) = "(" And IsNumeric(Left(Right(debutNom, 3),1)) And _
Left(Right(debutNom, 2),1) = ")" Then
objFSO.MoveFile debutNom & extension, Left(debutNom, Len(debutNom) - 4) & "(" & _
Left(Right(debutNom, 3),1) +1 & ")." & extension
ElseIf Left(Right(debutNom, 5),1) = "(" And IsNumeric(Left(Right(debutNom, 4),2)) And _
Left(Right(debutNom, 2),1) = ")" Then
objFSO.MoveFile debutNom & extension, Left(debutNom, Len(debutNom) - 5) & "(" & _
Left(Right(debutNom, 4),2) +1 & ")." & extension
Else
objFSO.MoveFile debutNom & extension, Left(debutNom, Len(debutNom)-1) & " (1)." & extension
End If
End Sub

Function ChooseFolder ( dialogPrompt As String ) As String

 Dim lpIDList As Long
Dim sBuffer As String * 255
Dim sReturnVal As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo

 sBuffer = String ( Len ( sBuffer ) , Chr(0) )
szTitle = dialogPrompt
tBrowseInfo.hWndOwner = FindWindow95 ( "notes", &H0 )
tBrowseInfo.lpszTitle = szTitle
tBrowseInfo.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
lpIDList = SHBrowseForFolder ( tBrowseInfo )

 If ( lpIDList ) Then
     SHGetPathFromIDList lpIDList, sBuffer
     ChooseFolder = Left ( sBuffer, InStr ( sBuffer, Chr(0) ) - 1)
End If

End Function

Sub deplace(testVide,spdfpath As String)
temppath = "\veuillez patienter...'"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objApp = CreateObject( "Shell.Application" )
'spdfpath = "C:\Notes\data\Dossier Tampon"
Set objFolder = objFSO.GetFolder(spdfpath & temppath)
Set objFiles = objFolder.Files
If objFiles.Count > 0 Then
ForAll objFile In objFiles
fileName = objFile.Name
entireFileName = spdfpath & temppath & "\" & fileName
On Error GoTo erreurDoublon
objFSO.MoveFile entireFileName , spdfpath & "\" & fileName
On Error Resume Next
End ForAll
Exit Sub
Else
testVide = True
Exit Sub
End If
erreurDoublon:
Call doublon(objFSO, entireFileName, "")
Exit Sub
End Sub

Posts: 2

Participants: 1

Read full topic

@fmerlet wrote:

Hello,

Now i have the last version of PDF Creator and my Lotusscript agent doesn't working.
It was working fine with the version 1.7 of PDF Creator.

here the code :

Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator")

If PDFCreator Is Nothing Then
MsgBox "Vérifier que PDFCreator est bien installé sur votre pc",,"PDFCreator n'est pas détecté"
End If

If Not PDFCreator.cStart("",True) GoTo processError

PDFCreator.cPrinterStop = True
PDFCreator.cClearCache
If mode = "liste_select" Then 'on a plusieurs docs sélectionnés
Set doc = collection.GetFirstDocument
Set uidoc = workspace.EditDocument(True, doc) 'on ouvre le premier en mode Edition
ElseIf mode = "liste" Then 'le mail n'est pas ouvert
Set uidoc = workspace.EditDocument(True) 'on l'ouvre en mode Edition
Else 'le mail est ouvert
Set doc = workspace.CurrentDocument.Document
Set uidoc = workspace.EditDocument(True, doc) 'on le ré-ouvre en mode Edition
End If
debut:
emetteur = uidoc.FieldGetText("From")
intitule = uidoc.FieldGetText("Subject")
'20 premiers caractères de l'émetteur - + les premiers caractères de l'intitulé pour faire max 100

'impression PDF
Dim PrinterPath As String
PrinterPath = "PDFCreator"
On Error GoTo impressionImpossible
Call uidoc.Print(1, 0, 0, False, PrinterPath)
On Error Resume Next
suite:
'fermeture du mail en mode Edition
Call uidoc.Close
If mode = "liste_select" Then 'si on a plusieurs docs
Set doc = collection.GetNextDocument (doc)
If Not doc Is Nothing Then 's'il en reste
Set uidoc = workspace.EditDocument(True, doc) 'on ouvre le suivant en mode Edition
GoTo debut
End If
End If
If nbdoc >0 Then
Do Until PDFCreator.cCountOfPrintjobs = nbdoc
Loop
With PDFCreator
.Ccombineall
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.coption("AutosaveDirectory")=spdfpath
.cOption("AutosaveFilename") = nomfichier & ".pdf"
.cOption("AutosaveFormat") = 0
End With
PDFCreator.cPrinterStop = False
While PDFCreator.cCountOfPrintjobs > 0
Sleep 1
Wend
End If
PDFCreator.cClose
testVide = False
Do Until testVide = True
Call deplace(testVide,spdfpath)
Loop
objFSO.DeleteFolder(spdfpath & temppath)
Exit Sub
impressionImpossible:
nbdoc = nbdoc-1
GoTo suite
fin:
Exit Sub
processError:
MsgBox "Vérifier que PDFCreator est bien installé sur votre pc",,"Fonctionnalité PDF n'est pas opérationnelle"
Print "Error: "+Error()+" Line: "+Cstr(Erl)
Resume fin

End Sub

Sub doublon(objFSO, debutNom, extension)
If Right(debutNom, 1) <> "." Then
Call doublon(objFSO, Left(debutNom, Len(debutNom)-1), Right(debutNom, 1) & extension)
ElseIf Left(Right(debutNom, 4),1) = "(" And IsNumeric(Left(Right(debutNom, 3),1)) And _
Left(Right(debutNom, 2),1) = ")" Then
objFSO.MoveFile debutNom & extension, Left(debutNom, Len(debutNom) - 4) & "(" & _
Left(Right(debutNom, 3),1) +1 & ")." & extension
ElseIf Left(Right(debutNom, 5),1) = "(" And IsNumeric(Left(Right(debutNom, 4),2)) And _
Left(Right(debutNom, 2),1) = ")" Then
objFSO.MoveFile debutNom & extension, Left(debutNom, Len(debutNom) - 5) & "(" & _
Left(Right(debutNom, 4),2) +1 & ")." & extension
Else
objFSO.MoveFile debutNom & extension, Left(debutNom, Len(debutNom)-1) & " (1)." & extension
End If
End Sub

What is the difference for it's working with the new version ?

Posts: 1

Participants: 1

Read full topic

@Lixer wrote:

Hello,

When compiling got errors :
[C++ Error] PDFCreator_COM_TLB.h(89): E2178 VIRDEF name conflict for 'CLSID_Queue'
[C++ Warning] PDFCreator_COM_TLB.h(148): W8017 Redefinition of 'LIBID_OF_Queue' is not identical

PDFCreator version 2.5.1

Posts: 1

Participants: 1

Read full topic

@ppm wrote:

Hello,
at installation, I want to change the label name in the Windows 7 contextual menu
with v2.4 I have a French Label "Transformer avec pdfcreator" and now with v2.5 I have "A propos de pdfcreator", I would like to change this label with something like "Execute pdfcreator"
How could I do it
the idea is to perform a specific task with the a default action on pdfcreator just with a right clic
Thanks

Posts: 1

Participants: 1

Read full topic

@piersordo wrote:

Last days all computers of my companies downloaded and installed an update of Office 2013.
After this, it is not possible to run in all computers the PdfCreator (we all have the last version). Why? What happened?
All computers are equipped with Windows 10 (home and professional editions). The problem is in ALL computers.
Thanks

Pier

Posts: 1

Participants: 1

Read full topic

@vinirockman wrote:

I have a major problem here that no setting can solve.

Every time that I combine two documents that have Portrait AND Landscape pages inside, the Auto Rotate always force them to all be the same setting: portrait OR landscape. If I set portrait, it won't work for me, because it will rotate pages that shouldn't be rotated. The same goes when set landscape... (as much as auto-detect/auto-rotate that doesn't work properly)

So, there's no option to ignore orientation of the pages and respect the original orientation...

We need this option!

The lack of this option forces me to rotate pages manually after print, because PDF Creator put them all in the same orientation.

PDFCreator should, definitively, have an option to respect the original orientation (to allow mix portrait and landscape when printing files with different orientation).

Posts: 1

Participants: 1

Read full topic

@MatD wrote:

Hello everyone,

I would like to ask for your help. When converting JPG to PDF i got the following Error:

ERROR DESCRIPTION:
Error-Nr: 6 (Overflow)
Modul: modImage2PS
Procedure: ConvertJPEGImage
Line: 50410
Date/Time: 03-06-2017 / 14:15:03

Line 50410 refers to function:

50410 fLen = GetFileLength(sourceFileName)

Did anyone get similar error? Thanks for answers!

Posts: 3

Participants: 2

Read full topic

@yaga wrote:

Hi,

I'm a development worker.
I've got a problem with my application, I would like to print several files (by using PDF Creator) and auto-save this files in different folder path.
unfortunately the user profile of PDF Creator give one path for printing result and all the pdf files generated arrives in this folder.
Is there a way to tell to PDF Creator the path for created files ?
by code, how can I pass the file path to PDF Creator ?

Best Regards
Yannick

Posts: 3

Participants: 2

Read full topic

@Yeke wrote:

Hello
Is it possible to change the printed signature icon when setting DisplaySignatureInDocument to true
TIA

Posts: 1

Participants: 1

Read full topic

@AlessioFotom wrote:

Thanks for your attention.

I'm looking for PDFCreator 2.3 installer, I need to downgrade my current version.
Anyone can help me with a link to download?

Really appreciate

Thank you
Alessio from Italy

Posts: 2

Participants: 2

Read full topic

@shss wrote:

Hello,

i want to change Profile Settings, before starting printing through .NET C#.
As i get it I have to use SetProfileSetting, but i can use it only when PrintJob is initialized.

PdfCreatorObj pdfPrinter = new PdfCreatorObj();
Queue jobQueue = new Queue();
try {
jobQueue.Initialize();
PrintJob printJob = jobQueue.NextJob;
printJob.SetProfileSetting("AutoSave.Enabled", "true");
}
catch { }
finally {
jobQueue.ReleaseCom();
}
But in my case i dont have PrintProcess.
Is it possible to change profile before Print started?

Thanks

Posts: 1

Participants: 1

Read full topic

@rytec wrote:

Hello,

I have updated PDFcreator today to the latest version and I noticed now that if I print to PDF creator and select to send it as e-mail it opens a mail message in Outlook 2013 but the layout is opened as RTF.

So I need to go to the page stup in outlook now to change it back to html because I cannot insert images, etc in rtf.

Maybe someone can tell me how to change this back to html when I print to ms outlook?

Thank you

Posts: 6

Participants: 2

Read full topic