' create PDFDoc object
 Set PDFDoc = CreateObject("PDFDocScout.PDFDocument")
 ' initialize library
 PDFDoc.InitLibrary "demo", "demo"
  
 ' set output filename for PDF document
 PDFDoc.OutputFileName = "pdfdocscout_make-font.pdf"
 ' automatically open generated PDF document in default PDF viewer application
 PDFDoc.AutoOpenGeneratedPDF = true
  
 ' starts PDF document generation
 PDFDoc.BeginDocument
  
 ' Set font for drawning text
 PDFDoc.Page.SetFont "Arial Black", 45, False, False, False, False, 0
 ' add text to current page - draw text at (100,100) and rotate at 15 degrees 
 PDFDoc.Page.AddText "Hello, World!", 100, 100, 15 
  
 ' close pdf document generation
 PDFDoc.EndDocument
  
 ' disconnect from library
 Set PDFDoc = Nothing

Download example source code: pdfdocscout_example_set_font_for_text.zip (15 KB)