Att.
Prezados Amigos
O Amauri Rodrigues Gomes de MG, já tentou me ajudar e quase consegui. O único problema é que na rotina abaixo, o primeiro código de barra imprimi normalmente e o segundo imprime bem mais largo na posição de cima para baixo e se eu colocar para imprimir mais de dois códigos de barras, o segundo sai colado com o terceiro e assim sucessivamente. Eu ja descobri que o problema estar no eixo do y2, mas já tentei de tudo que é possível e que está no pouco conhecimento que tenho, pois na verdade o que estou querendo é imprimir mas de 3000 códigos de barras em etiqueta para colocar nas fichas de materias do aumoxarifado. Por isso coloco mas uma vez esse problema no fórum e espero que alguém ou mesmo o Amauri mas uma vez leia esta minha solicitação. Por favor quem me ajudar deixe um telefone, email ou MSN para que eu entre em contato.
Private Sub CmdImprimir_Click()
Set DBCON = New ADODB.Connection
DBCON.Open "DSN=Sis_EstoqueAU"
Dim x1, y1, x2, y2
Dim Rs3 As New ADODB.Recordset
Set Rs3 = New ADODB.Recordset
Rs3.MaxRecords = 3
Rs3.Open "Select * From Tab_CadPecas", DBCON, 3, 3
Dim OldFonte
OldFonte = Printer.FontSize
Dim Total As Integer
Dim Img As String
x1 = 0: y1 = 50
Dim Tg As Integer
Do While Not Rs3.EOF
Printer.CurrentX = x1
Printer.CurrentY = y1
Picture1.Picture = LoadPicture(App.Path & "Códigos de Barras" & Rs3.Fields(0) & ".jpg")
x2 = x1 + 3500
y2 = y1 + 1100
Printer.PaintPicture Picture1.Picture, x1, y1, x2, y2 'Código de Barra do Material
Printer.CurrentX = x2 + 2000
Printer.CurrentY = Printer.CurrentY + 1000
x1 = 0
y1 = y2 + 1000
Rs3.MoveNext
Loop
Printer.FontSize = OldFonte
Printer.EndDoc
End Sub
