Imprimir Codigos de Barras

[erkillo]

Buenas a todos, el motivo de mi consulta es que tengo que imprimir un codigo de barras repetidamente en un folio de etiquetas. El codigo ya lo tengo generado, guardado en un picture y en un bmp (por si acaso lo tengo de las 2 formas jeje). Lo que ya no se es como imprimirlo repetidamente hasta llegar a llenar un folio de etiquetas.
Me es urgente, gracias.

[David]

Public Sub PrintPictureToFitPage(Prn As Printer, Pic As Picture)
Const vbHiMetric As Integer = 8
Dim PicRatio As Double
Dim PrnWidth As Double
Dim PrnHeight As Double
Dim PrnRatio As Double
Dim PrnPicWidth As Double
Dim PrnPicHeight As Double
' Determine if picture should be printed in landscape or portrait
' and set the orientation
If Pic.Height >= Pic.Width Then
Prn.Orientation = vbPRORPortrait ' Taller than wide
Else
Prn.Orientation = vbPRORLandscape ' Wider than tall
End If
PicRatio = Pic.Width / Pic.Height
PrnWidth = Prn.ScaleX(Prn.ScaleWidth, Prn.ScaleMode, vbHiMetric)
PrnHeight = Prn.ScaleY(Prn.ScaleHeight, Prn.ScaleMode, vbHiMetric)
PrnRatio = PrnWidth / PrnHeight
If PicRatio >= PrnRatio Then
PrnPicWidth = Prn.ScaleX(PrnWidth, vbHiMetric, Prn.ScaleMode)
PrnPicHeight = Prn.ScaleY(PrnWidth / PicRatio, vbHiMetric, Prn.ScaleMode)
Else
PrnPicHeight = Prn.ScaleY(PrnHeight, vbHiMetric, Prn.ScaleMode)
PrnPicWidth = Prn.ScaleX(PrnHeight * PicRatio, vbHiMetric, Prn.ScaleMode)
End If
Prn.PaintPicture Pic, 0, 0, PrnPicWidth, PrnPicHeight
End Sub

Sub Imprimir()
PrintPictureToFitPage Printer, Picture1.Picture
Printer.EndDoc
End Sub

Nunca lo probé (economizo mucho la impresora)
Pero creo que funciona. Cuentame si te funcionó después

[David]

Infelizmente no tengo el código para imprimir varias veces, lo que te aconsejo es que copies la imagen dentro del propio Picture (Creo que me entiendes). Lo que quiero decir es que en el mismo Picture tengas la lista del Código de Barras, ya que este código solo te imprimirá una vez el Picture