@sdan wrote:
Hi everyone,
We have been using Excel (VBA) to create and add stamps on PDF (PDFCreator version 1.7.3) since many years.
The Excel function was : Set pdf = CreateObject("pdfforge.pdf.pdf"), and it worked perfectly.
We had to download the new version of PDFCreator Pro, and since then, the function doesn't work anymore. Is it replaced by another function? If so, which one? How to change the code?Here a part of our actual code:
Sub STAMP()
Dim pdf As Object, pdfText As Object, pdfText1 As Object, pdfText2 As Object, pdfLine As Object, pdfLine2 As Object, pdfLine3 As Object, pdfLine4 As Object
Dim sNomDoc As String
Dim Num As Long
Dim REF As String
Dim nlot As StringSet pdf = CreateObject("pdfforge.pdf.pdf") Set pdfText = CreateObject("pdfforge.pdf.pdfText") Set pdfText1 = CreateObject("pdfforge.pdf.pdfText") Set pdfText2 = CreateObject("pdfforge.pdf.pdfText") Set pdfLine = CreateObject("pdfforge.pdf.pdfline") Set pdfLine2 = CreateObject("pdfforge.pdf.pdfline") Set pdfLine3 = CreateObject("pdfforge.pdf.pdfline") Set pdfLine4 = CreateObject("pdfforge.pdf.pdfline")
REF = ThisWorkbook.Sheets("FEUIL2").Range("B2")
nlot = ThisWorkbook.Sheets("FEUIL2").Range("B4").ValuesNomDoc = ThisWorkbook.Path & ThisWorkbook.Sheets("FEUIL2").Range("B7") & "" & REF & "_" & ThisWorkbook.Sheets("FEUIL2").Range("B3").Value & ".pdf"
If Dir(sNomDoc) <> "" Then
Num = pdf.NumberOfPages(sNomDoc)
Else
MsgBox "FICHIER INTROUVABLE"
End IfWith pdfText .fillOpacity = 1 .FontColorBlue = 255 .FontColorGreen = 0 .FontColorRed = 0 .FontName = "ariblk.TTF" .FontSize = 10 .Rotation = 0 .Text = "VALABLE POUR" .XPosition = 254 .YPosition = 193 pdf.AddTextToPDFFile sNomDoc, ThisWorkbook.Path & "\" & "AddText.pdf", 1, Num, pdfText End With
[...]
End SubThanks for your help,
Best regards
Sarah
Posts: 1
Participants: 1