Problemas con el Ojeto Printer

[gz_pedro]

Hola chikos mi problema es el siguiente: Emito boletas y recibos utilizando el objeto printer, el problema es q cuando se emiten un determinado numero de recibos o boletas la impresora deja de imprimir y empieza a generar colas de impresión y no se le da por imprimir, tengo q reiniciar la pc para nuevamente se imprima normal, esto tb sucede cuando envio varias boletas o recibos a la ves; bueno les dejo mi código haber si estoy fallando en algo me corrijen.


Private Sub PrintDatos(intF As Integer)
Dim ancHoHoja As Double, aLturaHoja As Double
On Error GoTo ErrorHandle
'///////////////////////////////ESTABLECIENDO PARAMETROS DEL PAPEL/////////////////////////////////
ancHoHoja = 210
aLturaHoja = 297
Printer.ScaleWidth = ancHoHoja
Printer.ScaleHeight = aLturaHoja
Printer.ScaleMode = 0
'/////////////////////////////////////IMPRIMIENDO LOS DATOS///////////////////////////////////////
Printer.Font = "Courier"
Printer.FontSize = 10
Printer.FontBold = False
Printer.CurrentX = 55
Printer.CurrentY = 28
Printer.Print Format(flgd_datos.TextMatrix(intF, 2), "dd/mm/yyyy")
Printer.CurrentX = 43
Printer.CurrentY = 34
Printer.Print Trim(flgd_datos.TextMatrix(intF, 0))
Printer.CurrentX = 128
Printer.CurrentY = 34
Printer.Print Trim(cbo_3.Text)
Printer.CurrentX = 128
Printer.CurrentY = 38
Printer.Print Trim(dtcb_1.Text) & "/" & Trim(cbo_5.Text)
'///////////////////////////////CARGANDO IMAGENES/////////////////////////////////
img_check.Picture = LoadPicture(App.Path & "\imagenes\check.gif")
'img_firma.Picture = LoadPicture(App.Path & "\imagenes\firma.gif")
'/////////////////////////////////////////////////////////////////////////////////
If Trim(cbo_6.Text) = "Algo" Then
Printer.CurrentX = 65
Printer.CurrentY = 55
Printer.Print "Algo" & " " & Trim(cbo_8.Text) '
Printer.PaintPicture img_check, 24, 55
Else
'Printer.CurrentX = 125
'Printer.CurrentY = 85
'Printer.Print "Otro valor"
'Printer.PaintPicture img_check, 108, 85
End If
Printer.CurrentX = 145
Printer.CurrentY = 75
Printer.Print Format(flgd_datos.TextMatrix(intF, 1), "0.00")
'/////////////////////////////////////////////////////////////////////////////////
Printer.CurrentX = 93
Printer.CurrentY = 88
Printer.Print Format(flgd_datos.TextMatrix(intF, 2), "dd/mm/yyyy")
Printer.EndDoc
ErrorHandle:
'MsgBox Err.Number & " / " & Err.Description
End Sub


Observaciones: Utilizo una impresora matricial la cual esta conectada a la pc mediante USB.

Bueno desde ya mis agradecimientos a las personas q se tomen la molestia en Leer mi problema y resporderme, un abrazo chao.