Imports CrystalDecisions
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.CrystalReports.Engine
Public Class U_lanciastampa

    ' parametri :
    'cod_stampa = codice del report di stampa
    ' dim dovestampo = se V allora a video altrimenti su printer
    ' unitstampe = unità su cui trovo allocate le stampe
    ' percostampe = la cartella ( percorso completo ) in cui stanno le stampe
    ' nucopie =numero di copie da stampare

    Dim nomestampa As String, comestampo1 As String    Dim nucopieS As Integer, codstampa As String
    Dim dovestampos As String

    ' questa funzione serve nel caso il form necessita anche di parametri di ingresso
    Public Sub New(ByVal cod_stampa As String, ByVal dovestampo As String, ByVal nucopie As Integer)

        ' Chiamata richiesta da Progettazione Windows Form.
        InitializeComponent()
        codstampa = cod_stampa
        nucopieS = nucopie
        dovestampos = dovestampo
    End Sub

    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles me.Load
        Dim cryRpt As New ReportDocument
        Dim nucopieSapp As Integer
        ' in primo luogo deve andre a leggere dal DB, tabella REPORT,  i dati corrispondenti al codice di stampa dato  da cod_stampa
        Class_rpCR.identistampa(codstampa, nomestampa, comestampo1, nucopieSapp)
        ' se comestampo1 torna vuoto, la stampante è la predefinita
        If comestampo1 = "" Then
            comestampo1 = Class_rpCR.StampantePredefinita
        End If

        Try
            cryRpt.Load(Class_condivisione.unitstampe & Class_condivisione.percostampe & nomestampa)
            If nucopieS = 0 Then
                nucopieS = nucopieSapp
            End If

           If dovestampos = "V" Then
                CrystalReportViewer1.ReportSource = cryRpt
                CrystalReportViewer1.Refresh()
            Else
                    cryRpt.PrintOptions.PrinterName = comestampo1
                    cryRpt.PrintToPrinter(nucopieS, False, 0, 0)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString)
        End Try
    End Sub