SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: lavi en Miércoles 28 de Noviembre de 2007, 19:36

Título: No Mostrar Mensaje "imprimiendo"
Publicado por: lavi en Miércoles 28 de Noviembre de 2007, 19:36

La idea es que cada vez q manda el form a imprimir con datos distitnos no muestre el mensaje "Imprimiendo..." que sale por defecto, porq si tengo 500 registros no querrán cerrarlo 500 veces;  :P ; espero ideas...

este es el cód; q manda a imprimir...

Private Sub frmGenerar_Click()
  Dim colrecibos As New Collection
  Set colrecibos = cldimpresos.CargarTodos
If colrecibos.Count <> 0 Then

  Dim CANT, J As Long
  CANT = Val(Text4.TEXT)
  X = 1
Do While X < CANT
    If X = CANT Then
        Exit Sub
        MsgBox "No existen recibos para imprimir"
    End If

For J = 1 To colrecibos.Count
If colrecibos.Item(J).IdCategoria = Val(Combo1.TEXT) Then
    Form.Mat1.Caption = colrecibos.Item(J).NumA1
    Form.Mat2.Caption = colrecibos.Item(J).NumA2
    Form.Mat3.Caption = colrecibos.Item(J).NumA3
    Form.TOTAL2.Caption = colrecibos.Item(J).total
    Form.IVA.Caption = 0
    Form.IMPORTETOTAL.Caption = colrecibos.Item(J).total
    Form.PrintForm
  'Printer.NewPage
    X = X + 1
    'MsgBox "1"
End If
Next
Loop
Else
    MsgBox "No existen recibos con esas propiedades para imprimir"
End If
End Sub

desde ya GRACIAS...

Lavi :)

Título: Re: No Mostrar Mensaje "imprimiendo"
Publicado por: SanLeviaThan en Viernes 30 de Noviembre de 2007, 08:11

Hola, con este codigo abre las propiedades de Impresora.-


set objShell = CreateObject("Wscript.Shell")
Objshell.Run "rundll32 printui.dll,PrintUIEntry /o /n \\servidor\HP"

Lo que esta en azul es el path de la impresora... (cambien a la de Ud.)

Espero que les sirva.-

Saludos.-

Título: Re: No Mostrar Mensaje "imprimiendo"
Publicado por: lavi en Viernes 30 de Noviembre de 2007, 21:21

En realidad no entiendo; luego de acceder al código como logro que no muestre el mensaje "imprimiendo" cada vez q se imprime el form... ? esa es mi duda
gracias---

Título: Re: No Mostrar Mensaje "imprimiendo"
Publicado por: cpmario en Sábado 1 de Diciembre de 2007, 01:05

No creo que con la forma que imprimes puedas quitar ese mensaje que genera directamente el VB6. Necesitarías imprimir el recibo de otra forma.

 :comp:

Título: Re: No Mostrar Mensaje "imprimiendo"
Publicado por: lavi en Domingo 2 de Diciembre de 2007, 17:47

Claro, eso era lo q me temía... bueno veré de que otra forma lo mando a imprimir, luego les comento como lo resuelvo...
gracias :)