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
