Cola de Impresion

[alekula]

Gracias por responder. Cambio el nombre del formulario antes de imprimir y en la cola de impresion sigue apareciendome "MICROSOFT VISUAL BASIC" por cada jpg que manda a imprimir.


Public Sub Imprimo(Pedido, Cantidad, RutaFoto, Tamaño, CaratulasoDiscos)

Form1.Caption = "ale - "

For Aq = 1 To Cantidad
Set Imagen = LoadPicture(RutaFoto)
Rem 8 cm. 4550 aprox
Rem 18,4cm 27cm
If Tamaño = " SLIM " Then Printer.PaintPicture Imagen, 500, 500, 10442, 15200
' 18,4cm 27,4cm
If Tamaño = " GRANDE " Then Printer.PaintPicture Imagen, 500, 500, 10442, 15490
'MsgBox "CaratulasoDiscos " & "*" & CaratulasoDiscos & "*"
If CaratulasoDiscos = "DISCOS" Then
Printer.PaintPicture Imagen, 185, 4980
'MsgBox "RutaFoto " & RutaFoto
End If
Printer.EndDoc
'MsgBox "RutaFoto " & RutaFoto
Next Aq
End Sub

Esto lo hice por lo menos para ver que en la cola diga ale
Form1.Caption = "ale - "
el cual cambia en el nombre del progrma (la franja azul de arriba) pero no en la cola de impresion)
Gracias nuevamente.