Crystal PrintReport

I have a VB program that prints an invoice to a printer, or saves it to disk as a PDF.  The response time is abysmal - up to 60 seconds to process a single invoice.  The line is rpt.PrintReport.  Can anyone share why they think this is?  Sample code is below.  Thank you in advance.

Print:

      rpt.NumOfCopies = 1
      rpt.Destination = PD_PRINTER
      rpt.PrintReport

Save to disk as PDF:

    rpt.Destination = PD_FILE
    rpt.Format = PF_PDF
    rpt.PrintDir = "c:\temp"
    rpt.PrintReport