Cola de Impresion

[pkj]

Perdona el desliz.
Lo que muestra la cola de impresion es el App.Title, pero tienes que crear el ejecutable. Si no creas el exe siempre aparece "Microsoft Visual Basic".

La cosa quedaría algo asi:

Código :

Public Sub Imprimo(Pedido, Cantidad, RutaFoto, Tamaño, CaratulasoDiscos)
Dim TituloBak As String
TituloBak = App.Title
For Aq = 1 To Cantidad
  Set Imagen = LoadPicture(RutaFoto)
 
  App.Title = Dir$(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
App.Title = TituloBak
End Sub
 

PD: Tengo que revisar mi "disco duro", ya que no recordaba haber contestado cuando preguntaste la primera vez. De hecho, esa vez, sin impresora, acerté al pensar que sería app.title, y sin embargo la segunda vez te quería hacer usar Form.Caption. Cada día ando peor de memoria.