Cola de Impresion

[alekula]

Alguien sabe como hacer para que en la cola de impresion de windows me salgan los nombres de los .jpg que estoy imprimiendo y no el nombre de mi programa como la cantidad que imprimo


For Aq = 1 To Cantidad
Set Imagen = LoadPicture(RutaFoto)
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
Printer.EndDoc
Next Aq


Tengo que usar otro programa para esto?
Gracias.

[pkj]

Lo que te pone como nombre del documeto es el caption del formulario.
Puedes cambiar el caption incluyendo el nombre del fichero que vas a imprimir y volver a cambiarlo después. Así te aparecerá en la cola de impresión. (creo)

Que se dé bien

[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.

[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.

[alekula]

Nuevamente gracias por tu preocupacion pero hice esto de agregar al codigo lo que me pusistes y generando un exe pero sigue apareciendome lo mismo. Estoy pendiente de esto, porque me resulta importante resolverlo.

[alekula]

Tambien estoy pensando en usar el Crystal Report que creo que esto lo solucionaria no? Pero mi problema es que no sabria como implementarlo ya que tengo entendido que usa el SQL que tampaco lo sabria implementar. Saludos.

[pkj]

Pues no entiendo donde tienes el problema.
Yo he creado un form con un control image y este código:

Código :

Private Sub Form_Load()
  Set Image1 = LoadPicture("c:\foto1.jpg")
  App.Title = Dir$("c:\foto1.jpg")
  Printer.PaintPicture Image1, 185, 4980
  Printer.EndDoc
  Set Image1 = LoadPicture("c:\foto2.jpg")
  App.Title = Dir$("c:\foto2.jpg")
  Printer.PaintPicture Image1, 185, 4980
  Printer.EndDoc
End Sub
 

creo un exe y cuando lo ejecuto me pone en la cola de impresión las 2 fotos con su nombre.

Suerte con crystal reports.

[alekula]

Exelente solucion pude por fin gracias. Te voy a seguir preguntando sobre Excel en el otro tema que me respondistes. Muchisimas gracias.