Prezados Amigos da Programação

 

   Vejam só a situação em que me encontro: Preciso imprimir umas etiquetas com o Código de Barra, Nome da Peça, Referência Externa. Todos os código de barras de cada peça foram geradas com o nº da peça para facilitar a leitura quando for ler a tabela no banco de dados.

Codigo da Peça : 101001

Nome da Peça...: Pino da Mola Mestre da Scânia

Referência Externa : 10102211/A25

A Figura do Código de Barra é : 101001.jpg

A Rotina abaixo explica mas ou menos o que quero.

O que estou tentando é ler A Tabela de Peças e ler cada registro e ir buscar a figura correspondente ao código da peça que está no banco de dados SqlServer 2000. mas na verdade o que consegui foi imprimir a Figura do Código de Barra só uma vez por página e começa a imrpimir o nome da peça e referência e quando pula a página imprime outro código de outra peça só e continua imrpimindo o nome e referência das outras peças. Tenho aproximadamente 4000 peças para serem impressa com cada uma com o seu código de barra, nome, referência.

     Explicando a minha tabela

Rs3.Fields(0) este campo é o código da peça

Rs3.Fields(1) este campo é o nome da peça

Rs3.Fields(2) este campo é a referência da peça

 

Private Sub CmdImprimir_Click()
    Set DBCON = New ADODB.Connection
    DBCON.Open "DSN=Sis_EstoqueAU"
    Dim Rs3 As New ADODB.Recordset
    Set Rs3 = New ADODB.Recordset
    Rs3.Open "Select * From Tab_CadPecas", DBCON, 3, 3
    Dim OldFonte
    OldFonte = Printer.FontSize
    Dim Total As Integer
    Dim Img As String
Do While Not Rs3.EOF
            Set Picture1.Picture = LoadPicture(App.Path & "Códigos de Barras" & Rs3.Fields(0) & ".jpg")
            Printer.FontSize = 8
            Printer.PaintPicture Picture1.Picture, 0, 50, 3500, 1100  'Código de Barra do Material
            Printer.Print Rs3.Fields(1)  'Descrição do Material
            Printer.Print Rs3.Fields(2)  'Referência Externa do Material
Rs3.MoveNext
Loop
Printer.FontSize = OldFonte
Printer.EndDoc
End Sub

Por favor se alguém souber como resolver este problema não me deixe sem resposta, mesmo que eu pague por essa dica, já pesquisei em tudo qué é forum do VB6 e nada encontrei, o meu email é ebdsinfo@uol.com.br e o meu MSN é eliasbernardosilva@hotmail.com

veja o outro tópico usei esta rotina sua e fiz uma modificação é só vc dar o acabamento final e voalá. na verdade este cod Printer.PaintPicture Picture1.Picture, 0, 50, 3500, 1100  imprime os códigos de barra sempre na mesma posição entao passe no x1,y1,x2,y2 que vc verá todos códigos de barra...