Crystal Report slow to print VS2012 VB

I notice another discussion where slow print was mentioned.  Its suggestion was to use Crystal ReportsAppServer but its code was more than I need and I did not pick out what was needed for my app.   I looked around but cannot see much about how the ReportAppServewr is used.

Currently I have a little routine that I can call to print, passing in the query and report name:

Dim ds AsNewDataSet

Dim da = NewSqlDataAdapter(qry, login.conStr)

da.fill(ds)
Dim Rpt AsNew CrystalDecisions.CrystalReports.Engine.ReportDocument()

Rpt.Load(Path & reportname)

Rpt.Refresh

Rpt.SetDataSource(ds.tables(0))

Rpt.PrintToPrinter(1,true,0,0)

Would changing this to use the ReportsAppServer make the print work faster?  And the big question how do I do it?

Peter