Imprimir Fotos con Visual Basic

[Avellaneda]

Creo que ahora lo entendí, mira he preparado un pequeño ejemplo a ver si te sirve:

Código:

Dim a() As String, carpeta As String, unidades As Integer
    Open sArchivo For Input As #1
    Text1.Text = ""
    Do While Not EOF(1)
        Line Input #1, sLinea
        ' metemos cada línea en un array, separando por espacio
        a = Split(sLinea, " ")      ' resultado: a(0) = 023, a(1) = Cataratas, a(2) = 2
        carpeta = a(0) & " " & a(1) ' resultado: Carpeta = "023 Cataratas"
        unidades = Val(a(2))        ' resultado: unidades = 2
        ' llamamos a la función de imprimir pasándole los parámetros anteriores
        Call ImprimirFoto(carpeta, unidades)
    Loop
    Close #1

El procedimiento imprimir foto sería algo así:

Código:

Private Sub ImprimirFoto(ByVal Directorio As String, Cantidad As Integer)
Dim LaFoto As String, i As Integer

LaFoto = "c:\" & Directorio & "\" & Directorio & ".jpg" ' resultado: LaFoto = "c:\023 Cataratas\023 Cataratas.jpg"
' imprimimos la foto tantas veces como indique la variable 'Cantidad'
For i = 1 To Cantidad
    Set Imagen = LoadPicture(LaFoto)
    Printer.PaintPicture Imagen, 450, 450, 1041, 1547
    Printer.Print LaFoto
    Printer.EndDoc
Next i
' y volvemos a por la siguiente línea del txt
End Sub