Bonjour j'essaye d'imprimer directement sur une imprimante (par défaut ) pour le moment j'arrive a crée un fichier PDF .
voici le code du bouton "impression"
j'ai essaye avec Reportview mais impossible de lancer l'impression directement sans intervention de l’opérateur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Dim RP As New Microsoft.Reporting.WinForms.ReportViewer Dim deviceInfo As String Dim mimeType As String = Nothing Dim encoding As String = Nothing Dim extension As String = Nothing Dim streamids() As String = Nothing Dim warnings() As Microsoft.Reporting.WinForms.Warning = Nothing Dim connString As String = "Server=127.0.0.1;Database=base_Test;Uid=root;Pwd=;" Dim conn As MySqlConnection = New MySqlConnection Dim da As New MySqlDataAdapter Dim Ds As New DataSet1 Dim sComm As New MySqlCommand conn.ConnectionString = connString If conn.State = ConnectionState.Closed Then conn.Open() End If sComm.CommandText = "SELECT * FROM base_test.table_impression" sComm.Connection = conn da.SelectCommand = sComm da.Fill(Ds.Tables(0)) RP.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local RP.LocalReport.ReportPath = "C:\temp\Report2.rdlc" RP.LocalReport.DataSources.Clear() RP.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", Ds.Tables(0))) RP.DocumentMapCollapsed = True RP.RefreshReport() deviceInfo = "" Dim tmpbytes() As Byte = RP.LocalReport.Render("PDF", deviceInfo, mimeType, encoding, extension, streamids, warnings) Dim fs As New System.IO.FileStream("c:\temp\test2.pdf", System.IO.FileMode.Create) fs.Write(tmpbytes, 0, tmpbytes.Length) fs.Close()
Si quelqu'un serrais comment lancer l'impression direct sur l'imprimante sans apercu, je suis preneur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Dim connString As String = "Server=127.0.0.1;Database=base_test;Uid=root;Pwd=;" Dim conn As MySqlConnection = New MySqlConnection Dim da As New MySqlDataAdapter Dim Ds As New DataSet1 Dim sComm As New MySqlCommand Dim report As New LocalReport() conn.ConnectionString = connString If conn.State = ConnectionState.Closed Then conn.Open() End If sComm.CommandText = "SELECT * FROM base_test.table_impression" sComm.Connection = conn da.SelectCommand = sComm da.Fill(Ds.Tables(0)) ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local ReportViewer1.LocalReport.ReportPath = "C:\temp\Report2.rdlc" ReportViewer1.LocalReport.DataSources.Clear() ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("DataSet1", Ds.Tables(0))) ReportViewer1.DocumentMapCollapsed = True ReportViewer1.RefreshReport() conn.Close()
Partager