SoloCodigo

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;   ; 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

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

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