Problema DISTINTO con Impresora Matriz de Punto
Publicado por ProgamOK (1 intervención) el 29/10/2005 07:21:10
Hola programadores:
Este foro me ha sido de gran ayuda, y es por eso que recurro a él en este momento. Tengo el siguiente problema: Tengo que imprimir un formulario Horizontal en una Impresora Matriz de Punto Okidata la cual en este momento usa el dirver IBM Proprinter II y para ello uso el Commondialog y el objeto Printer. Envío a imprimir en una impresora inyección de tinta y no Tengo problema alguno, todos los campos encajan perfecto en el formulario. Pero en la matriz de punto, Problemas:
1.- Envío a imprimir y solo imprime en la última linea (horizontalmente) numeros "2" y unas letras "e" y "r" de un tamaño mayor al predefinido.
He aquí parte del codigo que uso para la impresión:
'''''CommonDialog
On Error Resume Next
With CommonDialog1
.DialogTitle = "Seleccionar impresora"
.Flags = cdlPDPrintSetup
.ShowPrinter
End With
Err = 0
'''' configuro impresora
Printer.Orientation = 2
Printer.FontSize = 12
' Tamaño Papel
Printer.PaperSize = vbPRPSUser
Printer.Height = 330
Printer.Width = 215
Printer.ScaleMode = vbCentimeters
''' Parte del codigo de impresion. Son muchas lineas de este tipo:
'Nombre
Printer.CurrentX = 1
Printer.CurrentY = 1.7
Printer.Print Text1.Text
'Direccion
Printer.CurrentX = 1
Printer.CurrentY = 2.7
Printer.Print Text2.Text
''' Etc... etc.. etc...
Printer.EndDoc
Este programa esta funcionando en windows 98.
Espero que alguien sepa y me pueda guiar un poco, ya que estoy bastante liado con esto y aun no logro encontrar la solución. De antemano muchas gracias.
P.D.:Cuando lo pruebo en XP con impresora Inyección de tinta no tengo problemas.
Este foro me ha sido de gran ayuda, y es por eso que recurro a él en este momento. Tengo el siguiente problema: Tengo que imprimir un formulario Horizontal en una Impresora Matriz de Punto Okidata la cual en este momento usa el dirver IBM Proprinter II y para ello uso el Commondialog y el objeto Printer. Envío a imprimir en una impresora inyección de tinta y no Tengo problema alguno, todos los campos encajan perfecto en el formulario. Pero en la matriz de punto, Problemas:
1.- Envío a imprimir y solo imprime en la última linea (horizontalmente) numeros "2" y unas letras "e" y "r" de un tamaño mayor al predefinido.
He aquí parte del codigo que uso para la impresión:
'''''CommonDialog
On Error Resume Next
With CommonDialog1
.DialogTitle = "Seleccionar impresora"
.Flags = cdlPDPrintSetup
.ShowPrinter
End With
Err = 0
'''' configuro impresora
Printer.Orientation = 2
Printer.FontSize = 12
' Tamaño Papel
Printer.PaperSize = vbPRPSUser
Printer.Height = 330
Printer.Width = 215
Printer.ScaleMode = vbCentimeters
''' Parte del codigo de impresion. Son muchas lineas de este tipo:
'Nombre
Printer.CurrentX = 1
Printer.CurrentY = 1.7
Printer.Print Text1.Text
'Direccion
Printer.CurrentX = 1
Printer.CurrentY = 2.7
Printer.Print Text2.Text
''' Etc... etc.. etc...
Printer.EndDoc
Este programa esta funcionando en windows 98.
Espero que alguien sepa y me pueda guiar un poco, ya que estoy bastante liado con esto y aun no logro encontrar la solución. De antemano muchas gracias.
P.D.:Cuando lo pruebo en XP con impresora Inyección de tinta no tengo problemas.
Valora esta pregunta


0