Stampa da n° a n°

martedì 25 settembre 2012 - 08.03

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: mar 25 set 2012 - 08:03

Salve a tutto il forum, avrei il seguente problema:

Per stampare, ad esempio, una fattura faccio:

Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
caricaReport("C:\Messina Utility\MessinaUtility.mdb")
End Sub
Private Sub caricaReport(ByVal pathDatabase As String)
Dim mioreport1 As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim mioreport2 As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
mioreport1.Load(AppDomain.CurrentDomain.BaseDirectory & "\CrystalReport2.rpt")
mioreport2.Load(AppDomain.CurrentDomain.BaseDirectory & "\CrystalReport2.rpt")
Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo
Dim logOnInfo1 As New CrystalDecisions.Shared.TableLogOnInfo
Dim logOnInfo2 As New CrystalDecisions.Shared.TableLogOnInfo
logOnInfo1 = mioreport1.Database.Tables.Item("EstrattoContoTFornitore").LogOnInfo
logOnInfo2 = mioreport2.Database.Tables.Item("EstrattoContoRFornitore").LogOnInfo
logOnInfo1.ConnectionInfo.ServerName = pathDatabase
logOnInfo2.ConnectionInfo.ServerName = pathDatabase
logOnInfo.TableName = "EstrattoContoTFornitore"
logOnInfo.TableName = "EstrattoContoRFornitore"
mioreport1.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
mioreport2.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
CrystalReportViewer1.Visible = True
End Sub
Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
CrystalReportViewer1.Visible = False
Try
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim varformula As String
varformula = "{EstrattoContoRFornitore.codice}= " & Form11.CodiceTextBox.Text
CrystalReportViewer1.SelectionFormula = varformula
CrystalReportViewer1.RefreshReport()
objdoc.Load(Application.StartupPath & "\crystalreport2.rpt")
For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
'.ServerName = myDataSource
.UserID = ""
.Password = ""
.DatabaseName = "GestioneSmaltimento"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
CrystalReportViewer1.ReportSource = objdoc
CrystalReportViewer1.RefreshReport()
Catch ex As Exception
'MessageBox.Show("Errore FrmRptCommessa_CrystalReportViewer1_Load: " & ex.Message, "ERRORE", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
CrystalReportViewer1.Visible = True
End Sub

Con questo stampo la fattura sulla quale mi trovo.

Adesso vorrei cambiare un pò la cosa, mi spiego:

Vorrei implementare una query e dire di stampare, ad esempio, dalla fattura n° 1 alla fattura n° 10, come dovrei fare?

Devo usare il controllo Printdialog o Printdocument?

Distinti Saluti

Fabio Messina

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !