Save PDF file with VBs Printer Object

[Eduardo-]

Does it store the default printer and set it back?

No, but easy to add that:

Private Sub Command1_Click()
    Dim strCurrentPrn As String
    
    strCurrentPrn = Printer.DeviceName
    If Not SelectPrinter("Microsoft Print to PDF") Then
        MsgBox "Can't save PDF, 'Microsoft Print to PDF' driver not present", vbCritical
        Exit Sub
    End If
    
    PrinterFilePath = "D:\test.pdf"
    
    Printer.Print "AAA"
    Printer.FontSize = 34
    Printer.Print "BBB"
    Printer.DrawWidth = 10
    Printer.Circle (1000, 1000), 500, vbRed
    Printer.EndDoc
    
    PrinterFilePath = ""
    SelectPrinter strCurrentPrn
End Sub