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"

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()
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
 
        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()
Si quelqu'un serrais comment lancer l'impression direct sur l'imprimante sans apercu, je suis preneur