Copia questo Modulo di Classe pari pari come l'ho messo qui:

clsPDFCreator.cls
codice:
Scarica
Dopodichè, in un ipotetico form e in un ipotetico CommandButton (cmd_pdf) per esportare dei dati in PDF fai:

codice:
Private Sub cmd_pdf_Click()

Dim clPDF As New clsPDFCreator
Dim strFile As String

strFile = "C:\Esempio.pdf"
  
With clPDF
    .Title = "Esempio"
    .ScaleMode = pdfCentimeter
    .PaperSize = pdfA4
    .Margin = 0
    .Orientation = pdfPortrait

    .InitPDFFile strFile
    .LoadFont "Fnt", "Courier New"
    
        .BeginPage

            .DrawText 1, 24, "TEST ", "Fnt", 8
     
        .EndPage

    .EndObject
    .ClosePDFFile
End With
  
Call Shell("rundll32.exe url.dll,FileProtocolHandler " & (strFile), vbMaximizedFocus)
  
End Sub
Se ci sono problemi chiedi pure