Code: Select all
LoadFont(0, "Times New Roman", 20)
File$ = GetTemporaryDirectory() + "test.pdf"
If StartVectorDrawing(PdfVectorOutput(File$, 595, 842))
VectorFont(FontID(0), 25)
MovePathCursor(20, 20)
DrawVectorText("This is page 1...")
NewVectorPage()
MovePathCursor(20, 20)
DrawVectorText("This is page 2...")
StopVectorDrawing()
EndIf
RunProgram(File$)Oops, I missed that. Note to self: Put the right glasses on when programming, not the first pair that come to hand...
Can we use this to convert a loaded image into a PDF document? Would be amazing if so!
YesBarryG wrote: Wed Mar 20, 2024 12:12 am Can we use this to convert a loaded image into a PDF document? Would be amazing if so!
Code: Select all
LoadFont(0, "Lucida Console", 8)
LoadImage(0, #PB_Compiler_Home + "examples/sources/Data/PureBasicLogo.bmp")
If StartVectorDrawing(PdfVectorOutput("c:\\apps\test.pdf", 595, 842))
VectorFont(FontID(0), 8)
rowHt = VectorTextHeight("Wg")+2
MovePathCursor(20, 20)
DrawVectorText("line 1 ; no indent")
MovePathCursor(20, 20+rowHt)
VectorSourceColor(RGBA(255, 0, 0, 255))
DrawVectorText(" line 2 ; indented")
MovePathCursor(50, 50)
DrawVectorImage(ImageID(0), 127)
StopVectorDrawing()
EndIf
I shortened it to this for my needs:Code: Select all
UseJPEGImageDecoder()
LoadImage(0,"d:\image.jpg")
If StartVectorDrawing(PdfVectorOutput("d:\test.pdf",ImageWidth(0),ImageHeight(0)))
DrawVectorImage(ImageID(0))
StopVectorDrawing()
EndIf
You sound a lot like me. 4 different pair of glasses, all necessary and I still put the wrong damned ones on.Note to self: Put the right glasses on when programming, not the first pair that come to hand...
rack and stack em!Fangbeast wrote: Wed Mar 20, 2024 6:53 amYou sound a lot like me. 4 different pair of glasses, all necessary and I still put the wrong damned ones on.Note to self: Put the right glasses on when programming, not the first pair that come to hand...