Realmente este problema é muito difícil, muitos leitores do fórum lêem mas até agora só o Amauri tem tentado me ajudar assim que isto der certo vou colocar como uma dica no Site VbWeb.
Coloquei as propriedades Width e Heigth como constantes conforme Amauri de Mg mandou, mas o que aconteceu foi que quando coloco para imprimir só dois códigos de barras, os mesmos saem corretamente, mas quando coloco 10 códigos de barras para imprimir, o primeiro sai correto e o segudo sai o último codigo impresso. Exemplo o primeiro código é 1010001 e o segundo é 1010002 ... 1010010.
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 = 10
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
x2 = x1 + 3500
y2 = y1 + 1100
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")
'Printer.PaintPicture Picture1.Picture, x1, y1, x2, y2 'Código de Barra do Material
Printer.PaintPicture Picture1.Picture, x1, y1, 3500, 1100 'Código de Barra do Material
x1 = 0
y1 = y2 + 1000
Rs3.MoveNext
Loop
Printer.FontSize = OldFonte
Printer.EndDoc
End Sub
