Hola a Todos tengo un grave problema, hace mas de 2 meses que no puedo encontrar una solucion a esto, y los usuarios del programa me reclaman todos los dia por este problema.

Mando la impresion a la matriz de punto con el objeto Printer.Print y no tengo ningun problema en imprimir el documenro, el problema esta en que es muy lenta la impresion, trato de configurar la impresora a calidad de impresion a borrador, pero en el momento de enviar la impresion se cambia en forma automatica a calidad de impresion media.

Trato de imprimir con:

Open "Lpt1:" .......

Print ----------

Close

y funciona casi bien.
Imprime en la calidad de borrador pero:
noce como agrandar la letra o cambiar el tipo de letra, subrrayar.

Si alguien me puede ayudar estare muy agradecido.

Letras Impresora
'* * * TIPOS DE LETRAS IMPRESORA
'Print #1, Chr(27) & Chr(120) & Chr(0) 'Draft
'Print #1, Chr(27) & Chr(77) '12 CPI
'Print #1, Chr(27) & Chr(80) '10 CPI
'Print #1, Chr(27) & Chr(15) 'Comprimido
'Print #1, Chr(27) & Chr(18) 'Cancela COmprimido
'Print #1, Chr(27) & Chr(14) 'Ancho Double
'Print #1, Chr(27) & Chr(20) 'Cancela Ancho double
'Print #1, Chr(27) & Chr(69) 'Negrita
'Print #1, Chr(27) & Chr(70) 'Cancela negrita
'Print #1, Chr(14) 'Agrandar
'Print #1, Chr(18) 'Cancela Agrandar

Estos caracteres se los debe sumar a la cadena que deseas imprimir y al final de la cadena los caracteres para cancelar...

Suerte... Espero que te haya servido...

__________________
---- Wilfredo Polanco ----
República Dominicana, Santo Domingo, D.N.

Que tal, espero haber entendid obien. Lo unicoa que quieres es que tu impresora acepte el modo de Impresion Tipo "Borrador"... Bueno que tal si lo manejas mas o menos así:

'Procedimiento colocado en un Modulo BAS
'Configuracion de la Impresora para todos los
Function ConFigImpresora(orientacion As Integer, TamPapel As Integer, CalidadImp As Integer) As Boolean

Dim i As Integer
Dim cad As String

'Usar la coleccion Printers
Verificar que existan dos impresoras instaladas
If Printers.Count = 0 Then
MsgBox "Debe de Tener por lo Menos Una Impresora Instalada en el Panel de Control.", 0 + 16, "Reportes a Impresora."
ConFigImpresora = False

'Configurar los parámetros de la Impresora
Else
Set Printer = Printers(glo.NORMAL)
Printer.Font.Name = "arial" 'Aqui se puede agregar el tpo de la letra como otro parametro pasado por valor

'Checar que la Impresora esté bien direccionada
If Printer.DeviceName <> Printers(glo.NORMAL).DeviceName Then
MsgBox "Impresora está mal direccionada, Recofigure ahora.", 0 + 16, "Reportes a Impresora."
ConFigImpresora = False

Else
'ORIENTACION DEL PAPEL
Select Case orientacion
Case 1
Printer.Orientation = vbPRORPortrait 'Vertical
Case 2
Printer.Orientation = vbPRORLandscape 'Horizontal
End Select

'TAMAÑO DEL PAPEL
Select Case TamPapel
Case 1
Printer.PaperSize = vbPRPSLetter 'Tamaño Carta
End Select

'CALIDAD DE LA IMPRESION
Select Case CalidadImp
Case 0
Printer.PrintQuality = vbPRPQDraft 'Borrador -1
Case 1
Printer.PrintQuality = vbPRPQLow 'Baja -2
Case 2
Printer.PrintQuality = vbPRPQMedium 'Media -3
Case 3
Printer.PrintQuality = vbPRPQHigh 'Alta -4
End Select

ConFigImpresora = True
End If
End If

End Function


NOTA.- Glo.Normal es una variable a nive lglobal que toma su valor (al arrancar el sistema) de una tabla que contiene el nombre de la Impresora y el indice que tiene de acuerdo al objeto Printers (comienza en 1....)


Espero que te sirva..... Hasta Luego....

__________________
Guillermo Rentería

Muchas Gracias a Ambos
Probare sus codigos

:smt006