Name: test.txt
   Inhalt z.B.: Hallo, dies ist eine Textdatei

  Dim pdf As clsPDF
  Dim i As Long
  'PDF-Dokument initialisieren:
  Set pdf = New clsPDF
  pdf.DropBlankPages = True         'Default
  pdf.FontSize = 10                 'Default
  pdf.LinesPerPage = 72             'Default
  pdf.NewPageString = "<-NewPage->" 'Default: vbFormFeed
  pdf.Orientation = pdfPortrait     'Default
  pdf.PaperSize = pdfA4             'Default
  'Textdatei in PDF-Dokument konvertieren:
  pdf.PrintFile App.Path & "\test.txt"
  pdf.SavePDF App.Path & "\test1.pdf"
  'Wiederholung mit größerer Schrift:
  pdf.Clear FontSize:=12, LinesPerPage:=60
  pdf.PrintLine "Diese Schrift ist größer!"
  pdf.PrintFile App.Path & "\test.txt"
  pdf.SavePDF App.Path & "\test2.pdf"
  'PDF-Dokumente "aus dem Nichts" erzeugen:
  With pdf
    'Diesmal versuchen wir es mit dem Querformat:
    .Clear
    .Orientation = pdfLandscape
    .LinesPerPage = 40
    '4 Seiten füllen:
    .PrintText "Hallo" & vbNewLine & "Welt!"
    .NewPage
    .PrintLine "Ciao!!!"
    .NewPage
    For i = 1 To 100
      .PrintLine CStr(i)
    Next i
    .SavePDF App.Path & "\test3.pdf"
    'Noch 5 Seiten mit Riesenschrift dranhängen:
    .NewPage FontSize:=20, LinesPerPage:=24
    For i = 1 To 100
      .PrintLine CStr(i)
    Next i
    .SavePDF App.Path & "\test4.pdf"
  End With

Tschaui
Woellmi