none
Imagem dinamica com objeto ole ou imagem RRS feed

  • Pergunta

  • 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

    quarta-feira, 3 de abril de 2019 11:30