Crystal Reports 9. Viewing fine but will not print to printer!!! Need help!

Did you update the code to reflect the new CR9 dlls?

Did you update the reports to the CR9 format?

mlmcc

I changed everything over from the 8.5 to the 9.  Completely uninstalled 8.5 just to make sure and it runs into the viewer showing the correct sizes.

Okay I think I've narrowed it down...  There has to be something wrong with the following function...

Here's the code...

Public Sub Print_MembershipCard(strIDNumbers As String)
    Dim strPrinterName As String, strPrinterDriver As String, strPrinterPort As String
    Dim rptMembershipCard As New dsrMembershipCard
    Dim strSQL As String
   
    'Changing Mouse Icon to Busy
    Screen.MousePointer = vbHourglass
   
    strSQL = "Select * from pvwMailingLabel Where IDNumber In (" & strIDNumbers & ")"
    If DEBUG_MODE = True Then
        Clipboard.Clear
        Clipboard.SetText strSQL
    End If
   
    Call GetPrinterSettings("Cards", strPrinterName, strPrinterDriver, strPrinterPort)
    rptMembershipCard.SQLQueryString = strSQL
    Call rptMembershipCard.SelectPrinter(strPrinterDriver, strPrinterName, strPrinterPort)
   
    Call PrintReport(rptMembershipCard)
   
    'Changing icon back to normal
    Screen.MousePointer = vbDefault
    Set rptMembershipCard = Nothing
   
End Sub

'This sub returns the printer settings for a printer that matches the info passed in strPrinter
Private Sub GetPrinterSettings(strPrinter As String, strPrinterName As String, strPrinterDriver As String, strPrinterPort As String)
    Dim objPrinter As Printer
   
    For Each objPrinter In Printers
        If InStr(objPrinter.DeviceName, strPrinter) > 0 Then
            strPrinterName = objPrinter.DeviceName
            strPrinterDriver = objPrinter.DriverName
            strPrinterPort = objPrinter.Port
            Exit For
        End If
    Next objPrinter
End Sub

'This sub will do all the printing
Private Sub PrintReport(rptReport As Object)
    If PRINT_PREVIEW = True Then
        Me.Show
        CRViewer9.ReportSource = rptReport
        CRViewer9.Visible = True
        CRViewer9.ViewReport
    Else
        frmCrystalReports9.WindowState = vbMinimized
        CRViewer9.ReportSource = rptReport
        CRViewer9.ViewReport
        DoEvents
        CRViewer9.PrintReport
        DoEvents
        'Call CRViewer9.CloseView(0)
        'Unload frmCrystalReports
        Unload Me
    End If
End Sub

-------------------------------------------
When
Call GetPrinterSettings("Cards", strPrinterName, strPrinterDriver, strPrinterPort) and
Call rptMembershipCard.SelectPrinter(strPrinterDriver, strPrinterName, strPrinterPort) are called it's not working.  If I comment out those lines then it will work.  Problem is that i need to modify the printer it's going to.  Have any ideas?

Requesting PAQ

If you have similar problems see
http://support.crystaldecisions.com/library/kbase/articles/c2012124.asp
or search for "c2012124.asp" on support.crystaldecisions.com

The fix was to add the following line of code.
    rptReport.PaperOrientation = 0

CR9 no longer defaults the PaperOrientation as 8.5 did.  I hate CR.