Massimo Linossi wrote:And works perfectly with EMF files.
Inside there are also functions for writing Qrcode and other barcodes.
Code: Select all | Expand
PROCEDURE Main()
LOCAL PdfLibrary, nomefile, nomefile2, larghezza, altezza, contatore, documento
LOCAL fontID1, fontID2
LOCAL lHeight1, lWidth1, image1
LOCAL lHeight2, lWidth2, image2
nomefile = "TestLibrary.pdf"
nomefile2 = "TestLibrary2.pdf"
ferase(nomefile)
ferase(nomefile2)
PdfLibrary = CreateObject("DebenuPDFLibraryAX1612.PDFLibrary")
If PDFLibrary:UnlockKey("...") = 1 // YOUR KEY
msginfo(PDFLibrary:LicenseInfo())
PDFLibrary:SetPageSize("A4")
altezza = PDFLibrary:PageHeight()
larghezza = PDFLibrary:PageWidth()
PDFLibrary:CompressImages(1)
PDFLibrary:CompressFonts(1)
PDFLibrary:SetOrigin(1)
fontID1 = PDFLibrary:AddTrueTypeFont("Times New Roman", 0)
fontID2 = PDFLibrary:AddTrueTypeFont("Arial", 0)
PDFLibrary:SelectFont(fontID1)
PDFLibrary:DrawText(100, 500, "Hello from pdf library")
PDFLibrary:SetTextSize(20)
PDFLibrary:SelectFont(fontID2)
PDFLibrary:DrawText(400, 500, "Hello from Visual Basic 2")
PDFLibrary:DrawLine(300, 300, 500, 500)
PDFLibrary:DrawBox(200, 500, 80, 80, 0)
PDFLibrary:DrawHTMLText(532, 270, 100, "<b>€ 995,00</b>")
PDFLibrary:SetFillColor(0, 0, 0)
PDFLibrary:SetLineColor(23, 50, 100)
PDFLibrary:DrawCircle(475, 15, 5, 2)
image1 = PDFLibrary:AddImageFromFile("TEST_00.BMP", 0)
PDFLibrary:SelectImage(image1)
lWidth1 = PDFLibrary:ImageWidth() / 6
lHeight1 = PDFLibrary:ImageHeight() / 6
PDFLibrary:DrawImage(100, lHeight1, lWidth1, lHeight1)
PDFLibrary:DrawScaledImage(10, 10, 0.2)
PDFLibrary:DrawQrcode(190, 190, 40, "DebenuPDFLibraryAX1612.PDFLibrary", 2, 0)
PDFLibrary:DrawDatamatrixSymbol(240, 240, 5, "DebenuPDFLibraryAX1612.PDFLibrary", 1, 15, 0)
// Use millimetres
PDFLibrary:SetMeasurementUnits(1)
altezza = PDFLibrary:PageHeight()
larghezza = PDFLibrary:PageWidth()
//msginfo(str(altezza) + " " + str(larghezza))
// Draw a 100 x 100 mm green rectangle
PDFLibrary:SetLineColor(0, 0.8, 0)
PDFLibrary:DrawBox(50, 20, 100, 100, 0)
PDFLibrary:DrawText(60, 30, "It's hip to be square...")
PDFLibrary:CompressContent()
// Use pixels
PDFLibrary:SetMeasurementUnits(0)
altezza = PDFLibrary:PageHeight()
larghezza = PDFLibrary:PageWidth()
PDFLibrary:Newpage()
PDFLibrary:SelectPage(2)
// HERE A TEST FOR IMPORTIN EMF FILES
image2 = PDFLibrary:ImportEMFFromFile("c:\fw\debenu_test\EMF\93654296.emf", 1, 0)
PDFLibrary:SelectImage(image2)
PDFLibrary:DrawImage(0, 0, larghezza, altezza)
for contatore = 1 to PDFLibrary:PageCount()
PDFLibrary:SelectPage(contatore)
PDFLibrary:CompressPage()
next contatore
PDFLibrary:CompressContent()
PDFLibrary:SaveToFile(nomefile)
PDFLibrary:ReleaseImage(image1)
PDFLibrary:ReleaseImage(image2)
EndIf
PdfLibrary = nil
RETURN
Massimo Linossi wrote:Maybe you can make also in a different way.
You can make all your prints with the preview option.
And inside the preview function take all the EMF files and merge them into one PDF.
It's easy.
