Bom dia a todos
Preciso de um único detalhe
tenho uma aplicação que gera um código de barras em imagem, preciso colocar esse código no crystal
preciso que o crystal sempre carregue a imagem atual que esta gravada no c:\ da maquina , a cada execução a imagem muda
preciso que ele localize essa imagem e traga a atual
Detalhe não estou alimentando o crystal via banco e sim via parâmetro
Preciso de um detalhado para poder prosseguir
segue um exemplo de codigo
Imports System.Drawing
Imports System.Drawing.Printing
Imports Microsoft.Reporting.WinForms
Imports System
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing.Imaging
Imports iTextSharp.text.pdf
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class FormCrystal
Private Sub FormCrystal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim report As New ReportDocument
If ClassOperacoes.pr_valor = 1 Then
report.PrintOptions.PrinterName = "Argox OS-214 plus series PPLA"
report.Load("../../CrystalReportEtiqueta.rpt", OpenReportMethod.OpenReportByDefault)
report.SetParameterValue(0, FormPrincipal.TextBoxOperador.Text)
report.SetParameterValue(1, FormPrincipal.TextBoxInspetores.Text)
report.SetParameterValue(5, FormPrincipal.TextBoxLoteA.Text)
report.SetParameterValue(3, FormPrincipal.TextBoxClienteA.Text)
report.SetParameterValue(4, FormPrincipal.TextBoxProdutoA.Text)
report.SetParameterValue(2, FormPrincipal.ComboBoxTurno.Text)
report.SetParameterValue(6, FormPrincipal.TextBoxCodAltA.Text)
report.SetParameterValue(7, FormPrincipal.TextBoxQuantEmbA.Text)
report.SetParameterValue(8, Date.Now())
report.PrintToPrinter(1, False, 0, 0)
ElseIf ClassOperacoes.pr_valor = 2 Then
report.PrintOptions.PrinterName = "Argox OS-214 plus series PPLA"
report.Load("../../CrystalReportEtiqueta.rpt", OpenReportMethod.OpenReportByDefault)
report.SetParameterValue(0, FormPrincipal.TextBoxOperador.Text)
report.SetParameterValue(1, FormPrincipal.TextBoxInspetores.Text)
report.SetParameterValue(5, FormPrincipal.TextBoxLoteB.Text)
report.SetParameterValue(3, FormPrincipal.TextBoxClienteB.Text)
report.SetParameterValue(4, FormPrincipal.TextBoxProdutoB.Text)
report.SetParameterValue(2, FormPrincipal.ComboBoxTurno.Text)
report.SetParameterValue(6, FormPrincipal.TextBoxCodAltB.Text)
report.SetParameterValue(7, FormPrincipal.TextBoxQuantEmbB.Text)
report.SetParameterValue(8, Date.Now())
report.PrintToPrinter(1, False, 0, 0)
ElseIf ClassOperacoes.pr_valor = 3 Then
report.PrintOptions.PrinterName = "Argox OS-214 plus series PPLA"
report.Load("../../CrystalReportEtiqueta.rpt", OpenReportMethod.OpenReportByDefault)
report.SetParameterValue(0, FormPrincipal.TextBoxOperador.Text)
report.SetParameterValue(1, FormPrincipal.TextBoxInspetores.Text)
report.SetParameterValue(5, FormPrincipal.TextBoxLoteC.Text)
report.SetParameterValue(3, FormPrincipal.TextBoxClienteC.Text)
report.SetParameterValue(4, FormPrincipal.TextBoxProdutoC.Text)
report.SetParameterValue(2, FormPrincipal.ComboBoxTurno.Text)
report.SetParameterValue(6, FormPrincipal.TextBoxCodAltC.Text)
report.SetParameterValue(7, FormPrincipal.TextBoxQuantEmbC.Text)
report.SetParameterValue(8, Date.Now())
report.PrintToPrinter(1, False, 0, 0)
ElseIf ClassOperacoes.pr_valor = 4 Then
report.PrintOptions.PrinterName = "Argox OS-214 plus series PPLA"
report.Load("../../CrystalReportEtiqueta.rpt", OpenReportMethod.OpenReportByDefault)
report.SetParameterValue(0, FormPrincipal.TextBoxOperador.Text)
report.SetParameterValue(1, FormPrincipal.TextBoxInspetores.Text)
report.SetParameterValue(5, FormPrincipal.TextBoxLoteD.Text)
report.SetParameterValue(3, FormPrincipal.TextBoxClienteD.Text)
report.SetParameterValue(4, FormPrincipal.TextBoxProdutoD.Text)
report.SetParameterValue(2, FormPrincipal.ComboBoxTurno.Text)
report.SetParameterValue(6, FormPrincipal.TextBoxCodAltD.Text)
report.SetParameterValue(7, FormPrincipal.TextBoxQuantEmbD.Text)
report.SetParameterValue(8, Date.Now())
report.PrintToPrinter(1, False, 0, 0)
Else
MsgBox("ERRO FATAL CHAME O TI")
End If
Me.Close()
End Sub
Private Sub FormCrystal_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
FormPrincipal.TextBoxLeitura.Select()
End Sub
Private Sub FormCrystal_Closed(sender As Object, e As EventArgs) Handles Me.Closed
FormPrincipal.TextBoxLeitura.Select()
End Sub
Private Sub PrintDocument1_PrintPage(sender As Object, e As PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim bm As New Bitmap(picodbar.Width, picodbar.Height)
picodbar.DrawToBitmap(bm, New Rectangle(0, 0, bm.Width, bm.Height))
e.Graphics.DrawImage(bm, 0, 0)
End Sub
End Class
