PDF Document

[ClueLess]

Hi.
How can I create a PDF document? The example on HELP for PdfVectorOutput doesn't work and says it is not supported.

Thank you in advance

[mk-soft]

Use right PB version ?

[spikey]

PDF output for Windows is new for 6.10, it's Mac/Linux only in previous versions. The example shown in the help article for PdfVectorOutput() won't actually work (on Windows). It tries to write to a read only folder and fails with no error message. It needs updating. Try this, it should work properly:

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$)

(Edit: Removed an extraneous separator).

[mk-soft]

One #PS$ too much ...

[ClueLess]

Thank You

[spikey]

One #PS$ too much ...

Oops, I missed that. Note to self: Put the right glasses on when programming, not the first pair that come to hand...

[BarryG]

PDF output for Windows is new for 6.10

Can we use this to convert a loaded image into a PDF document? Would be amazing if so!

[TassyJim]

Can we use this to convert a loaded image into a PDF document? Would be amazing if so!

Yes

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

Jim

[BarryG]

Thanks so much, TassyJim! 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

[Fangbeast]

Note to self: Put the right glasses on when programming, not the first pair that come to hand...

You sound a lot like me. 4 different pair of glasses, all necessary and I still put the wrong damned ones on.

[idle]

Note to self: Put the right glasses on when programming, not the first pair that come to hand...

You sound a lot like me. 4 different pair of glasses, all necessary and I still put the wrong damned ones on.

rack and stack em!