none
Crystal para PDF com código de Barras RRS feed

  • Pergunta

  • Olá Pessoal,
    Tenho um relatório desenvolvido em Crystal e nele tem a paresentação de um código de barras com fontes true type.
    Quando apresento este relatório pelo CrystalReportViewer o código de barras aparece, mas quando uso o botão para exportar para PDF o código de barras não aparece no reltório.
    Alguem pode me ajudar com isto?

    Grato.
    • Movido Fernanda SimõesModerator segunda-feira, 22 de março de 2010 12:16 Movendo para um forum expecifico (De:VB.NET e Visual Basic)
    quinta-feira, 18 de março de 2010 12:24

Respostas

  • Olha cara, eu não sei muito vb mas acho que ficaria mais ou menos assim:

     

     

    Public Shared Function GeraImagemCodBarras(ByVal codigo As String) As Byte()
    
        Dim b As New BarcodeLib.Barcode()
    
       
    
        Dim W As Integer = 750
    
        Dim H As Integer = 200
    
       
    
        b.IncludeLabel = False
    
        Dim type As BarcodeLib.TYPE = BarcodeLib.TYPE.CODE39
    
        b.Encode(type, codigo.Trim(), Color.Black, Color.White, W, H)
    
       
    
        Dim ms As New MemoryStream()
    
        b.SaveImage(ms, BarcodeLib.SaveTypes.BMP)
    
       
    
        Return ms.ToArray()
    
    End Function
    
    
    

     

    Acho que já da para ter uma noção!

     

    Abs,

     

    Rafael Zaccanini
    --------------------------------------------------------------------
    Se a resposta te ajudou marque como útil

    • Marcado como Resposta Daxxel sexta-feira, 19 de março de 2010 20:31
    • Marcado como Resposta AndreAlvesLimaModerator segunda-feira, 22 de março de 2010 16:33
    sexta-feira, 19 de março de 2010 20:20

Todas as Respostas

  • Posta a sua dúvida aqui:

    http://social.msdn.microsoft.com/Forums/pt-BR/vsreportingpt/threads
    quinta-feira, 18 de março de 2010 12:28
  • Olá Pessoal,
    Tenho um relatório desenvolvido em Crystal e nele tem a paresentação de um código de barras com fontes true type.
    Quando apresento este relatório pelo CrystalReportViewer o código de barras aparece, mas quando uso o botão para exportar para PDF o código de barras não aparece no reltório.
    Alguem pode me ajudar com isto?

    Grato.
    quinta-feira, 18 de março de 2010 12:34
  • Olá Daxxel,

    Eu tive o mesmo problema a um tempo atrás e resolvi da seguinte forma:

    Para exportar o relatório com a fonte não teve jeito mesmo, no caso eu utilizava a "3of9barCode" e acabei realizando uma forma até que simples.

    Salvei a fonte dinamicamente no banco e, no DataSet do relatório apenas chamei a imagem salva. Para realizar a conversão do texto ou código para código de barras eu utilizei uma referência chamada "BarcodeLib". segue abaixo método para converter em código de barra e salvar em imagem:


    public static byte[] GeraImagemCodBarras(string codigo)
            {
                BarcodeLib.Barcode b = new BarcodeLib.Barcode();
    
                int W = 750;
                int H = 200;
    
                b.IncludeLabel = false;
                BarcodeLib.TYPE type = BarcodeLib.TYPE.CODE39;
                b.Encode(type, codigo.Trim(), Color.Black, Color.White, W, H);
    
                MemoryStream ms = new MemoryStream();
                b.SaveImage(ms, BarcodeLib.SaveTypes.BMP);
    
                return ms.ToArray();
            }



    Espero ter ajudado!


    Rafael Zaccanini
    --------------------------------------------------------------------
    Se a resposta te ajudou marque como útil

    quinta-feira, 18 de março de 2010 16:38
  • Oi Rafael,

    Obrigado pela resposta, mas eu programo em VB e não entendo muito de C#. Sua resposta parece bem coerente, mas vc poderia me dar um exemplo em VB?

    Grato,

    sexta-feira, 19 de março de 2010 17:24
  • Olha cara, eu não sei muito vb mas acho que ficaria mais ou menos assim:

     

     

    Public Shared Function GeraImagemCodBarras(ByVal codigo As String) As Byte()
    
        Dim b As New BarcodeLib.Barcode()
    
       
    
        Dim W As Integer = 750
    
        Dim H As Integer = 200
    
       
    
        b.IncludeLabel = False
    
        Dim type As BarcodeLib.TYPE = BarcodeLib.TYPE.CODE39
    
        b.Encode(type, codigo.Trim(), Color.Black, Color.White, W, H)
    
       
    
        Dim ms As New MemoryStream()
    
        b.SaveImage(ms, BarcodeLib.SaveTypes.BMP)
    
       
    
        Return ms.ToArray()
    
    End Function
    
    
    

     

    Acho que já da para ter uma noção!

     

    Abs,

     

    Rafael Zaccanini
    --------------------------------------------------------------------
    Se a resposta te ajudou marque como útil

    • Marcado como Resposta Daxxel sexta-feira, 19 de março de 2010 20:31
    • Marcado como Resposta AndreAlvesLimaModerator segunda-feira, 22 de março de 2010 16:33
    sexta-feira, 19 de março de 2010 20:20
  • Olha cara, eu não sei muito vb mas acho que ficaria mais ou menos assim:

     

     

    Public Shared Function GeraImagemCodBarras(ByVal codigo As String) As Byte()
    
        Dim b As New BarcodeLib.Barcode()
    
    
    
        Dim W As Integer = 750
    
        Dim H As Integer = 200
    
       
    
        b.IncludeLabel = False
    
        Dim type As BarcodeLib.TYPE = BarcodeLib.TYPE.CODE39
    
        b.Encode(type, codigo.Trim(), Color.Black, Color.White, W, H) 
    
        Dim ms As New MemoryStream()
    
        b.SaveImage(ms, BarcodeLib.SaveTypes.BMP)
    
       
    
        Return ms.ToArray()
    
    End Function
    
    
    

     

    Acho que já da para ter uma noção!

     

    Abs,

     

    Rafael Zaccanini
    --------------------------------------------------------------------
    Se a resposta te ajudou marque como útil

     

    sexta-feira, 19 de março de 2010 20:20