CommonDialog/ Printing

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   I have a problem when printing Crystal Reports. Can anybody show me a way of using the ShowPrint dialog. I just don't get it... I want to be able to select a choice of printer and then send that to CRX1. 

I have this code which works when you don't want to change the printer.

Dim crxApp As New CRAXDRT.Application
Private WithEvents crxRpt As CRAXDRT.Report
Set crxRpt = crxApp.OpenReport(m_FilePath)
    CRViewer1.ReportSource = crxRpt
crxRpt.SelectPrinter "", "", ""
        crxRpt.PrintOut False, 1

However, this only works with the default printer. I need to feed the result of the Common Dialog into the Selectprinter code. Can anybody help???

Regards to all,

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Boris Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 21 June 2007 Location: United Kingdom Status: Offline Points: 179	Post Options Post Reply Quote Boris Report Post Thanks(0) Quote Reply Topic: CommonDialog/ Printing Posted: 26 October 2009 at 11:06am
	I have a problem when printing Crystal Reports. Can anybody show me a way of using the ShowPrint dialog. I just don't get it... I want to be able to select a choice of printer and then send that to CRX1. I have this code which works when you don't want to change the printer. Dim crxApp As New CRAXDRT.Application Private WithEvents crxRpt As CRAXDRT.Report Set crxRpt = crxApp.OpenReport(m_FilePath) CRViewer1.ReportSource = crxRpt crxRpt.SelectPrinter "", "", "" crxRpt.PrintOut False, 1 However, this only works with the default printer. I need to feed the result of the Common Dialog into the Selectprinter code. Can anybody help??? Regards to all,
	Boris Product: Xtreme SuitePro (ActiveX) version 16.4.0 16.3.1 Platform: Windows XP (32bit) - SP 3 Language: Visual Basic 6.0 SP6 VS 2005-2008-2010-2013