Reply to thread

Message: <blockquote data-quote="lkzombie" data-source="post: 18739954" data-attributes="member: 462352">[PHP]Dim report As New ReportDocumentreport.PrintOptions.PrinterName = "HP Deskjet D4200 series"report.Load(CrystalReport, OpenReportMethod.OpenReportByDefault)report.PrintToPrinter(1, False, startpage, endpage)[/PHP]me mama code karapu app ekaka kallak (Access db) [PHP]Public Sub printView()            Dim frmRptViewer As New frmReportViewer            Dim rptReport As New ReportDocument            rptReport = rptName            For Each tbl In rptReport.Database.Tables                tbl.LogOnInfo.ConnectionInfo.ServerName = clsData.DatabasePath                tbl.LogOnInfo.ConnectionInfo.DatabaseName = clsData.DatabaseName                tbl.LogOnInfo.ConnectionInfo.Password = clsData.DatabasePassword                tbl.LogOnInfo.ConnectionInfo.UserID = clsData.DatabaseUser                tbl.ApplyLogOnInfo(tbl.LogOnInfo)            Next            If strFormula.Length() <> 0 And strReportID.Length() <> 0 Then                rptReport.RecordSelectionFormula = strFormula & "'" & strReportID & "'" & strSubFormula            End If            frmRptViewer.rptViewer.ReportSource = rptReport            rptReport.PrintOptions.PrinterName = "HP Deskjet D4200 series"            rptReport.PrintToPrinter(1, False, 1, 1)            frmRptViewer.MdiParent = MainForm            frmRptViewer.Show()        End Sub[/PHP]100% working tested!!<img src="/styles/default/xenforo/smilies/default/nerd.gif"  class="smilie" loading="lazy" alt=":nerd:" title="Nerd    :nerd:" data-shortname=":nerd:" /></blockquote>

Verification: Hath warak paha keeyada? (hatha wadikireema paha)

Top Bottom

Search

Latest ads

Reply to thread