Source: https://es.scribd.com/doc/19744451/El-Objeto-Printer-VB
Timestamp: 2018-03-21 03:35:22+00:00

Document:
Cargado por viclo82
El Objeto Printer El objeto Printer le permite comunicarse con una impresora del sistema (inicialmente la impresora predeterminada).
Este es uno de los Objetos de VB que no tiene representación gráfica en la pantalla, tanto en tiempo de diseño como de ejecución. El objeto Printer gestiona el envío de información a la impresora, tanto para imprimir textos como gráficos. Para Visual Basic el objeto Printer es como otro objeto cualquiera. Si queremos imprimir algo en la impresora, debemos escribir el código VB necesario para escribirlo en el objeto Printer, lo mismo que si estuviésemos escribiendo en un formulario. Lo mismo que para escribir en un formulario, escribíamos el código Form1.Print "ABCD" Para escribir en el objeto Printer el código será: Printer.Print “ABCD” Para enviar gráficos al objeto Printer se procede de igual forma que si estuviésemos dibujando en un formulario Form1.Circle (200, 150), 50, , , , 0.5 Esta instrucción dibuja una elipse centrada en el punto x=200, y=150 del formulario Form1 Printer.Circle (200, 150), 50, , , , 0.5 Esta instrucción dibuja una elipse centrada en el punto x=200, y=150 del objeto Printer Parece en principio algo raro hablar de las coordenadas x e y del objeto Printer. Posiblemente porque el objeto Printer es un objeto que no podemos “ver”. Pero imaginemos que el objeto Printer es una hoja de papel. La misma hoja que aparecerá escrita una vez que le enviemos el texto (o los gráficos) que queremos imprimir. Esa hoja de papel tendrá unas dimensiones que deberemos indicar al objeto Print. La forma de indicarle las dimensiones del papel varían dependiendo del driver de impresora usado. El driver de la impresora sabrá que el papel que tiene es un DIN A4, DIN A3, etc., que tiene unas medidas prefijadas. Centrémonos en lo mas habitual, una impresora que tenga un papel DIN A4 cuyas medidas son 210 x 297 mm. El driver de impresora “sabe” que ese es el tamaño de su papel. Ahora solamente nos falta que nuestra aplicación lo sepa también. Para ello vamos a indicarle mediante un par de sentencias las medidas de ese papel : ScaleWidth y ScaleHeight Si le decimos : Printer.ScaleWidth = 2100 : Printer.ScaleHeight = 2970
le estamos diciendo a nuestro programa que el papel mide 2100 unidades de ancho y 2970 unidades de alto. (Estamos suponiendo que el papel está colocado en posición vertical). Si tiene 2100 unidades de ancho, y el ancho real del papel es de 210 mm, nuestra unidad de medida será de 0,1 mm. Es decir, le decimos a nuestro programa que el papel tiene 2100 décimas de milímetro de ancho, y 2970 décimas de milímetro de alto. La precisión con la que podemos colocar un
punto sobre el papel será por tanto 0,1 mm. Podríamos hacerla mayor (0,01 mm.) si pusiésemos Printer.ScaleWidth = 21000 y Printer.ScaleHeight = 29700. Para el trabajo ordinario de imprimir listados o dibujar gráficos tipo barras, es mas que suficiente una precisión de 0,1 mm. Si lo que queremos es un dibujo mas exacto (Dibujar fotolitos de circuitos impresos, p.e. ) esta precisión de 0,1 mm. no nos bastaría, debiendo llegar a una precisión del orden de 0,01 mm. Pero todo ello está condicionado por el número de p.p.i. (puntos por pulgada) que nuestra impresora es capaz de dar. Nota.- Una impresora tiene unos márgenes sobre los que no puede escribir. Por lo tanto, cuando decíamos que el papel tiene 210 mm. de ancho, en realidad ya estamos cometiendo un pequeño error, ya que la impresora no puede escribir en todo el ancho, pues los 2 - 3 mm de cada lado no lo imprime. Deberemos entonces poner las propiedades ScaleWidth y ScaleHeight del Printer de acuerdo con la superficie real de escritura de nuestra impresora. Le adelanto que no le va a ser fácil enterarse de qué márgenes deja sin imprimir. Le recomiendo que imprima una línea desde Printer.CurrentX=0 a Printer.CurrentX= (un número superior a Printer.Scalewidth). Mida con un escalímetro el ancho real de la impresión. El objeto Printer almacenará toda la información sin pasarla a la impresora hasta que se le envíe la instrucción Printer.EndDoc o se le envíe un salto de página mediante la instrucción Printer.NewPage. El objeto Printer, al igual que otros objetos de Visual Basic tiene sus propiedades y métodos. Las principales propiedades del objeto Printer son : Nota El efecto de las propiedades del objeto Printer depende del controlador suministrado por el fabricante de la impresora. Algunos valores de la propiedad pueden no tener efecto, o varios valores distintos de la propiedad pueden tener todos el mismo efecto. Los valores fuera del rango aceptado pueden producir error. Para obtener más información, vea la documentación del fabricante del controlador concreto. ColorMode Devuelve o establece un valor que determina si una impresora de color imprime en color o en blanco y negro. No disponible en tiempo de diseño. Sintaxis Printer.ColorMode [= valor]
Valor puede ser un número o una constante de VB. Si es un 1 (o la constante vbPRCMMonochrome) imprimirá en blanco y negro (normalmente en escala de grises). Si es 2, o la constante vbPRCMColor imprimirá en color. El valor predeterminado depende del controlador de la impresora y de la configuración actual de la impresora. Las impresoras en blanco y negro ignoran esta propiedad. Copies Devuelve o establece un valor que determina el número de copias que se van a imprimir.
Printer.Copies [= número]
Donde número debe ser una expresión numérica que especifique el número de copias que se van a imprimir. Este valor debe ser un entero. El valor por defecto es 1. CurrentX CurrentY Devuelven o establecen las coordenadas horizontal (CurrentX) o vertical (CurrentY) para un método gráfico o de impresión. No disponible en tiempo de diseño. Sintaxis Para forzar las coordenadas del cursor de escritura del objeto Printer : Printer.CurrentX [= x] Printer.CurrentY [=y]
Para conocer las coordenadas del cursor de escritura del objeto Printer Posx = Printer.CurrentX Posy = Printer.CurrentY Comentarios Las coordenadas se miden a partir de la esquina superior izquierda del objeto. El valor de la propiedad CurrentX es 0 en el borde izquierdo de un objeto, y el valor de la propiedad CurrentY es 0 en el borde superior. Las coordenadas se expresan en las unidades de medida definidas por las propiedades ScaleHeight y ScaleWidth. Si se han introducido estas propiedades (como recomendábamos mas atrás), la propiedad ScaleMode se pone automáticamente a User. Si no se establecen, ScaleMode puede estar en Twips, Point, Pixeles, caracteres, .... unidades que supongo le serán mucho mas difícil de controlar que si Vd. dice desde el principio que el papel de su impresora tiene unas medidas de 2100 por 2970 (Printer.ScaleWidth = 2100, Printer.ScaleHeight = 2970) Haciéndolo de esta última forma, cuando queramos dibujar una línea entre dos puntos de nuestro papel DIN A4 bastará con medir las coordenadas de inicio y final de línea, eso sí, usando como unidad de medida la décima de milímetro. Por ejemplo, una línea a 5 mm del borde superior, que comience a 20 mm. Del borde izquierdo y termine a 10 mm del borde derecho, se dibujaría con la siguiente instrucción : Printer.Line (200,50) - (2870,50) Si queremos escribir datos en una columna, que está a 30 mm. de la parte izquierda de la hoja, comenzaremos a escribir cada fila de esa columna con un CurrentX de 300. Para ello primero fijaremos el punto de inicio mediante CurrentX y a continuación usaremos el método Print : Printer.CurrentX = 300 : Printer.CurrentY = (lo que corresponda a esa fila) Printer.Print MiVariable ‘ donde MiVariable contiene el dato a escribir
CurrentX y CurrentY se quedan con los valores establecidos por el último método gráfico o método Print usado. Cuando se está dibujando sobre el objeto Printer, los métodos gráficos Circle y Line establecen los siguientes valores para CurrentX y CurrentY : Circle El centro del objeto.
El punto final de una línea.
El método Print establece como CurrentX la coordenada correspondiente a la parte derecha de la última letra impresa. Como CurrentY depende de si ha terminado la sentencia Printer.Print MiVariable con punto y coma ( ;) o sin el. En el primer caso, CurrentY es el mismo que tenía antes de realizar ese método. En el segundo caso, avanza automáticamente una línea. Cuando se envía la instrucción EndDoc establece los valores de estas propiedades a 0, 0. NewPage establece igualmente los valores 0, 0. DeviceName Devuelve el nombre del dispositivo permitido por un controlador. Esta propiedad es solo de lectura Sintaxis Printer.DeviceName
Cada controlador de impresora acepta uno o más dispositivos por ejemplo, HP LaserJet III es un nombre de dispositivo. DrawMode Devuelve o establece un valor que determina el aspecto de la salida de un método gráfico. Vea la Ayuda de VB para mayor detalle. DrawStile Devuelve o establece un valor que determina el estilo de línea de la salida de métodos gráficos. Sintaxis Printer.DrawStyle [= número]
El número especifica el estilo de línea : 0 1 2 3 4 5 6 (Predeterminado) Continuo. Rayas. Puntos. Raya - punto. Raya - punto - punto. Transparente. Continuo interior.
Observaciones Si DrawWidth se define con un valor mayor que 1, los valores de DrawStyle entre 1 y 4 producen una línea continua (el valor de la propiedad DrawStyle no cambia). Si DrawWidth se define como 1, DrawStyle produce el efecto para cada valor descrito en la tabla anterior.
DrawWidth Devuelve o establece la anchura de línea de lo dibujado con los métodos gráficos. Sintaxis Printer.DrawWidth [= tamaño]
tamaño es una expresión numérica comprendida entre 1 y 32.767 que representa la anchura de la línea en pixeles. El valor predeterminado es 1, es decir, un píxel de ancho. Comentarios Puede incrementar el valor de esta propiedad para aumentar la anchura de la línea. Si el valor de la propiedad DrawWidth es mayor que 1, los valores de 1 a 4 en la propiedad DrawStyle producirán una línea continua (el valor de DrawStyle no se modifica). Si se establece 1 en DrawWidth, DrawStyle producirá los resultados mostrados en la tabla de esta propiedad. DriverName Devuelve el nombre del controlador de un objeto Printer. Esta propiedad es solo de lectura Sintaxis Printer.DriverName
Cada controlador tiene un nombre único. Por ejemplo, el DriverName de varias impresoras Hewlett-Packard es HPPCL5MS. El DriverName es normalmente el nombre de archivo del controlador sin la extensión. Duplex Devuelve o establece un valor que determina si las páginas se imprimen por los dos lados (si la impresora tiene esta característica). No disponible en tiempo de diseño. Sintaxis Printer.Duplex [= valor]
Donde valor es un valor o constante que especifica el tipo de impresión, tal como se describe a continuación Constante bPRDPSimplex vbPRDPHorizontal 2 Valor Descripción 1 Impresión en una sola cara con la orientación actual.
Impresión en dos caras con vuelta de página horizontal.
vbPRDPVertical
Impresión en dos caras con vuelta de página vertical.
Con impresión a doble cara horizontal, la parte superior de ambas caras de la hoja están en el mismo borde de la hoja. Con impresión a doble cara vertical, la parte inferior de una página está en el mismo borde de la hoja que la parte superior de la página siguiente. Véase el gráfico existente en la ayuda de VB para la propiedad Duplex
FillColor Devuelve o establece el color usado para rellenar formas; FillColor también se usa para rellenar círculos y cuadros creados con los métodos gráficos Circle y Line. Sintaxis Printer.FillColor [ = valor]
Donde valor es un valor o constante que determina el color de relleno. El valor puede introducirse como RGB o con las constantes QB color ejemplos FillColor = QBColor(8) FillColor = RGB (255,0,0) El color predeterminado es el 0 (Negro). FillStyle Devuelve o establece el modelo usado para rellenar dibujos (círculos y los cuadros creados con los métodos gráficos Circle y Line. Sintaxis printer.FillStyle [= número]
Donde número Un entero que especifica el estilo de relleno, tal como se describe a continuación Valor Descripción 0 1 2 3 4 5 6 7 Continuo. (Predeterminado) Transparente. Línea horizontal. Línea vertical. Diagonal hacia arriba. Diagonal hacia abajo. Cruzado. Diagonal Cruzada.
Cuando la propiedad FillStyle se define con su valor predeterminado, 1 (Transparente), el valor de FillColor se ignora. Font Devuelve o establece el objeto Font (letra) del objeto Printer. Este objeto Font tiene a su vez sus propiedades (Name, Size, Bold, Italic ... )
Podemos forzar la fuente a usar por el objeto Printer con un CommonDialog, igualando la propiedad Name del objeto Font del Printer a la propiedad FontName del CommonDialog
Printer.Font.Name = CD1.FontName
Podemos averiguar que fuente está usando el objeto Printer :
Tipofuente = Printer.Font.Name
Devuelve el número de fuentes disponibles para el dispositivo de presentación actual o la impresora activa. (Devuelve un número) Es solamente de lectura.
numerodefuentes = Printer.FontCount
Devuelve el nombre de la fuente que está usando el objeto Printer
nombredelafuente = Printer.Fontname
(El Objeto Printer admite esta propiedad como Font.Name o FontName indistintamente)
Devuelve todos los nombres de fuente disponibles para el dispositivo de presentación actual o la impresora activa.
Printer.Fonts(índice)
La propiedad Fonts funciona de forma conjunta con la propiedad FontCount, que devuelve el número de nombres de fuente disponibles para el objeto. Las fuentes disponibles en Visual Basic varían de acuerdo con la configuración del sistema, y los dispositivos de presentación y de impresión. Use las propiedades Fonts y FontCount para obtener información sobre las fuentes disponibles para pantalla o impresora.
Por ejemplo, si queremos ver en Label1 todas las fuentes disponibles para el objeto Printer, estableceremos el siguiente código :
For i = 1 To Printer.FontCount Label1.Caption = Label1.Caption + " " + Printer.Fonts(i) Next i
Devuelve o establece el tamaño de la fuente a utilizar para el texto mostrado en un control o en una operación de dibujo o impresión en tiempo de ejecución.
Printer.FontSize [= puntos]
Donde puntos es una expresión numérica que especifica el tamaño de fuente a utilizar, en puntos.
Puede utilizar esta propiedad para dar al texto el tamaño que desee. El valor predeterminado lo determina el sistema. Para cambiar este valor, especifique el nuevo tamaño de la fuente en puntos. El valor máximo de FontSize es 2160 puntos.
Nota Las fuentes disponibles en Visual Basic varían dependiendo de la configuración del sistema y de los dispositivos de presentación e impresión. En las propiedades relacionadas con las fuentes sólo pueden establecerse valores para los que exista una fuente.
(El objeto Printer acepta tanto Font.Size como FontSize)
FontBold, FontItalic, FontStrikethru y FontUnderline
Devuelve o establece los estilos de fuente en los siguientes formatos: Negrita, Cursiva, Tachada y Subrayada.
Printer.FontBold [= lógico] Printer.FontItalic [= lógico] Printer.FontStrikethru [= lógico] Printer.FontUnderline [= lógico]
‘ p.e Printer.FontBold = True escribiría con ‘ letra negrita
Para el objeto Printer, el establecimiento de estas propiedades no afecta al texto ya escrito, solamente para lo que se escriba después de cambiar la propiedad. Aprovecha esta facilidad para cambiar de letra a lo largo de un documento.
En general, deberá modificar la propiedad FontName antes de establecer los atributos de tamaño y estilo con las propiedades FontSize, FontBold, FontItalic, FontStrikethru y FontUnderline. Sin embargo, cuando especifique un tamaño inferior a 8 puntos para una fuente TrueType, primero deberá establecer el tamaño en puntos con la propiedad FontSize, luego especificar la propiedad FontName y después establecer de nuevo el tamaño con FontSize. El entorno operativo Microsoft Windows utiliza una fuente distinta para las fuentes TrueType con un tamaño inferior a 8 puntos.
Printer acepta FontBold ó Font.Bold, FontItalic ó Font.Italic ....
Devuelve o establece un valor que determina si el texto y los gráficos de fondo de un objeto Printer, se muestran en el espacio situado entre los caracteres.
Printer.FontTransparent [= lógico]
La modificación de FontTransparent en tiempo de ejecución no afecta a los gráficos ni el texto ya dibujados en un objeto Printer .
Devuelve o establece el color de escritura para impresoras en color. El cambio de color afecta solamente al texto que se envíe después de realizar el cambio.
Devuelve un controlador proporcionado por el entorno operativo Microsoft Windows para el contexto de dispositivo de un objeto.
Esta propiedad es un controlador de contexto de dispositivo del entorno operativo Windows. El entorno operativo Windows se encarga de la presentación del sistema asignando un contexto de dispositivo al objeto Printer. Se puede usar la propiedad hDC para referirse al controlador del contexto de dispositivo de un objeto. Así se obtiene un valor que se pasa en las llamadas al API de Windows. Nota El valor de la propiedad hDC puede cambiar en tiempo de ejecución, así que no se debe almacenar en una variable. En su lugar, use la propiedad hDC cada vez que lo necesite.
Devuelven o establecen las dimensiones del objeto Printer. No están disponibles en tiempo de diseño.
Printer.Height [= número] Printer.Width [= número]
Donde número indica las dimensiones del papel configurado para el dispositivo de impresión. No disponibles en tiempo de diseño. Si se establecen en tiempo de ejecución, los valores de estas propiedades se utilizarán en lugar del de la propiedad PaperSize.
Para el objeto Printer, estas propiedades se miden siempre en twips. Si establece las propiedades Height y Width para un controlador de impresora que no admite su uso, no se producirá ningún error, y el tamaño del papel continuará siendo el mismo.
¡¡¡ Es mas recomendable utilizar la propiedad PaperSize para establecer las dimensiones del papel. !!!
Devuelve o establece un valor que indica si los documentos se imprimen con orientación vertical u horizontal. No disponible en tiempo de diseño.
Printer.Orientation [= valor]
valor es un valor o constante que determina la orientación de la página, según se describe a continuación :
vbPRORPortrait
Los documentos se imprimen con el lado más corto
vbPRORLandscape
Los documentos se imprimen con el lado más largo arriba.
Page Devuelve el número de página actual.
Variable = Printer.Page
‘Variable contiene el número de la pág. actual
Visual Basic mantiene un contador de páginas impresas desde el inicio de la aplicación o desde la última vez que se utilizó la instrucción EndDoc en el objeto Printer. Este contador comienza por uno y se incrementa en uno cada vez que:
Se utiliza el método NewPage. Se utiliza el método Print y el texto a imprimir no cabe en la página actual.
Nota La salida de los métodos gráficos que no quepa en la página actual no genera una página nueva, sino que se recorta para ajustarla a la zona de impresión de la página.
PaperBin Devuelve o establece un valor que indica la bandeja predeterminada para la alimentación de papel durante la impresión. No disponible en tiempo de diseño.
Printer.PaperBin [= valor]
valor es un valor o constante que especifica la bandeja predeterminada, según se describe a continuación : Constante Valor Descripción
vbPRBNUpper vbPRBNLower vbPRBNMiddle vbPRBNManual vbPRBNEnvelope 4 5
Utilizar papel de la bandeja superior. Utilizar papel de la bandeja inferior. Utilizar papel de la bandeja intermedia.
Esperar a la inserción manual de cada hoja. Utilizar sobres del alimentador de sobres. Utilizar sobres del alimentador de sobres, pero esperar a la inserción manual.
vbPRBNEnvManual 6
vbPRBNAuto
(Predeterminado) Utilizar papel de la bandeja
predeterminada actual. vbPRBNTractor vbPRBNSmallFmt 9 8 Utilizar papel del alimentador por tracción.
Utilizar papel del alimentador de papel pequeño. Utilizar papel de la bandeja de papel grande. 11 Utilizar papel del alimentador de gran capacidad.
vbPRBNLargeFmt 10 vbPRBNLargeCapacity vbPRBNCassette 14
Utilizar papel del cartucho de cassette adjunto.
No todas las opciones están disponibles en todas las impresoras. Consulte la documentación de la impresora para obtener descripciones más específicas de estas opciones.
PaperSize Devuelve o establece un valor que indica el tamaño de papel para la impresora actual. No disponible en tiempo de diseño. El valor predeterminado es el establecido en la configuración de la impresora en Windows. Con esta propiedad no se debe jugar alegremente. El valor que se le dé a esta propiedad será el tamaño de ese papel “ficticio” que comentábamos mas atrás.
Printer.PaperSize [= valor]
valor es un valor o constante que especifica el tamaño del papel, según se describe a continuación Constante Valor Descripción
vbPRPSLetter vbPRPSLetterSmall vbPRPSTabloid vbPRPSLedger vbPRPSLegal vbPRPSStatement vbPRPSExecutive vbPRPSA3 vbPRPSA4 vbPRPSA4Small vbPRPSA5 vbPRPSB4 bPRPSB5 vbPRPSFolio vbPRPSQuarto vbPRPS10x14 vbPRPS11x17 vbPRPSNote vbPRPSEnv9 vbPRPSEnv10 vbPRPSEnv11 vbPRPSEnv12 vbPRPSEnv14 vbPRPSCSheet vbPRPSDSheet vbPRPSESheet 24 25 6 7 8 9 10 11 12 13
Carta, 8 ½ x 11 . Carta pequeña, 8 ½ x 11 . Tabloide, 11 x 17 . Libro, 17 x 11 . Legal, 8 ½ x 14 .
Declaración, 5 ½ x 8 ½ . Ejecutivo, 7 ½ x 10 ½ . A3, 297 x 420 mm A4, 210 x 297 mm A4 pequeño, 210 x 297 mm A5, 148 x 210 mm B4, 250 x 354 mm B5, 182 x 257 mm 14 15 16 17 18 19 20 21 22 23 Folio, 8 ½ x 13 . Cuarto, 215 x 275 mm 10 x 14 . 11 x 17 . Nota, 8 ½ x 11 . Sobre #9, 3 7/8 x 8 7/8 . Sobre #10, 4 1/8 x 9 ½ . Sobre #11, 4 ½ x 10 3/8 . Sobre #12, 4 ½ x 11 . Sobre #14, 5 x 11 ½ .
Hoja tamaño C Hoja tamaño D 26 Hoja tamaño E
vbPRPSEnvDL vbPRPSEnvC3 vbPRPSEnvC4 vbPRPSEnvC5 vbPRPSEnvC6 vbPRPSEnvC65 vbPRPSEnvB4 vbPRPSEnvB5 vbPRPSEnvB6 vbPRPSEnvItaly vbPRPSEnvMonarch vbPRPSEnvPersonal vbPRPSFanfoldUS 39 36 32
27 29 30 28 31
Sobre DL, 110 x 220 mm Sobre C3, 324 x 458 mm Sobre C4, 229 x 324 mm Sobre C5, 162 x 229 mm Sobre C6, 114 x 162 mm
Sobre C65, 114 x 229 mm 33 34 35 Sobre B4, 250 x 353 mm Sobre B5, 176 x 250 mm Sobre B6, 176 x 125 mm
Sobre, 110 x 230 mm 37 38 Sobre monarca, 3 7/8 x 7 ½ . Sobre, 3 5/8 x 6 ½ .
Doblado estándar EE.UU., 14 7/8 x 11 . 40 41 256 Doblado estándar alemán, 8 ½ x 12 . Doblado legal alemán, 8 ½ x 13 . Definido por el usuario
vbPRPSFanfoldStdGerman vbPRPSFanfoldLglGerman vbPRPSUser
Al establecer las propiedades Height o Width de una impresora, se establece automáticamente vbPRPSUser en PaperSize.
Devuelve el nombre del puerto a través del cual se envía un documento a una impresora.
puertousado = Printer.Port
El sistema operativo determina el nombre del puerto, como por ejemplo LPT1: o LPT2:.
Devuelve o establece un valor que indica la resolución de la impresora. No disponible en tiempo de diseño.
Printer.PrintQuality [= valor]
valor es un valor o una constante que especifica la resolución de la impresora, según se describe a continuación :
vbPRPQDraft vbPRPQLow vbPRPQMedium vbPRPQHigh -2 -3
Resolución borrador
Resolución baja Resolución media -4 Resolución alta
Además de los valores negativos predefinidos, también puede indicarse en valor un número positivo de puntos por pulgada, como por ejemplo 300.
El valor predeterminado depende del controlador de la impresora y de su configuración actual. El efecto de estos valores varía según la impresora y el controlador. En ciertas impresoras, algunas opciones, o todas ellas, pueden producir el mismo resultado.
¡ Estas propiedades ya se comentaron mas atrás. Es completamente necesario entender estas propiedades para poder manejar y dominar el objeto Printer. !
Devuelven o establecen el número de unidades de medida horizontal (ScaleWidth) y vertical (ScaleHeight) del interior del papel donde vamos a volcar la información del objeto Printer.
Printer.ScaleHeight [= valor] Printer.ScaleWidth [= valor]
Donde valor es una expresión numérica que especifica la medida horizontal o vertical. Este valor va a determinar el número de unidades de medida que tiene el papel, NO su medida. Es decir, podemos decir, mediante estas propiedades, que el papel tiene 2100 unidades de ancho y 2970 unidades de alto. Si el papel es un DIN A4 (Medidas 210 x 297 mm) esa unidad de medida sería precisamente una décima de milímetro. Podríamos haber elegido otros valores, con lo que esa unidad de medida ya no serían décimas de mm. Sería una unidad de medida cualquiera, pero el papel seguiría siendo DIN A4 y seguiría teniendo las mismas medidas reales.
Devuelven o establecen las coordenadas horizontal (ScaleLeft) y vertical (ScaleTop) de los bordes izquierdo y superior de un objeto al utilizar métodos gráficos o al situar controles.
Printer.ScaleLeft [= valor] Printer.ScaleTop [= valor]
donde valor es una expresión numérica que especifica la coordenada horizontal o vertical. El valor predeterminado es 0.
Con estas propiedades y las relacionadas ScaleHeight y ScaleWidth, puede configurar un sistema de coordenadas completo, con coordenadas positivas y negativas. Estas cuatro propiedades de escala se relacionan con la propiedad ScaleMode de la siguiente forma:
Al establecer un valor en cualquier otra propiedad de escala, en ScaleMode se establece automáticamente 0.
Al establecer en ScaleMode un número mayor que 0, ScaleHeight y ScaleWidth cambian a la nueva unidad de medida, y en ScaleLeft y ScaleTop se establece 0. Además, los valores de CurrentX y CurrentY cambian para reflejar las nuevas coordenadas del punto actual.
Resumiéndolo en palabras mas sencillas. Si, con las medidas de los ejemplos anteriores (ScaleWidth = 2100, ScaleHeight = 2970) ponemos Printer.ScaleLeft = - 1050 estamos diciendo que la coordenada horizontal absoluta en la parte izquierda de la hoja es de -1050. Si el ancho del papel es de 2100, la coordenada X absoluta del eje central del papel será entonces 0. Y la coordenada X de la parte derecha del papel será + 1050. Por lo tanto, si ejecutamos el método gráfico :
Printer.Circle (0,1000), 300
dibujará un circulo de radio 300, con el centro en el eje vertical de la hoja (Coordenada X=0) a una altura de 1000 (Coordenada Y=1000) de la parte superior del papel.
Si hubiésemos puesto Printer.ScaleTop = - 1500 estaríamos diciendo que la coordenada Y absoluta de la parte superior del papel es - 1500. En ese caso, el círculo anterior se colocaría a una distancia de 2500 (2500 = 1000 + 1500) del borde superior del papel.
ScaleMode Devuelve o establece un valor que indica la unidad de medida de las coordenadas de un objeto al utilizar métodos gráficos, o al situar controles.
Printer.ScaleMode [= valor]
donde valor es un número entero que especifica la unidad de medida, según se describe a continuación
User. Indica que una o más de las propiedades ScaleHeight, ScaleWidth, ScaleLeft y ScaleTop tienen valores personalizados.
(Predeterminado) Twip (1440 twips por pulgada lógica; 567 twips por centímetro
lógico). 2 3 4 5 6 7 Punto (72 puntos por pulgada lógica). Píxel (la unidad mínima de la resolución del monitor o la impresora). Carácter (horizontal = 120 twips por unidad; vertical = 240 twips por unidad). Pulgada. Milímetro. Centímetro.
Recomendación del autor de esta Guía del Estudiante. Una vez mas recomiendo que controle la posición de los métodos gráficos y método Print fijando las unidades de medida mediante ScaleHeight, ScaleWidth, (Si le es práctico, emplee ScaleLeft y ScaleTop para que le coincida el punto central del papel con las coordenadas 0,0 y así usaría coordenadas positivas y negativas) y cada vez que escriba o dibuje, coloque el “cursor” de escritura mediante las propiedades CurrentX y CurrentY
Devuelve o establece un valor que determina si el objeto Printer apunta siempre a la misma impresora, o si la impresora a la que apunta cambia cuando se modifica la impresora predeterminada en el Panel de control del sistema operativo. No disponible en tiempo de diseño.
Printer.TrackDefault [= lógico]
Donde lógico es una expresión booleana que determina la impresora a la que apunta el objeto Printer, según se describe a continuación.
True (Predeterminado) El objeto Printer cambia la impresora a la que apunta al modificar la impresora predeterminada en el Panel de control del sistema operativo. False El objeto Printer continúa apuntando a la misma impresora cuando se modifica la impresora predeterminada en el Panel de control del sistema operativo.
Al modificar el valor de la propiedad TrackDefault mientras se realiza un trabajo de impresión, se envía una instrucción EndPage implícita al objeto Printer.
Devuelve el número de twips per pixel de un objeto medido horizontal (TwipsPerPixelX) o verticalmente (TwipsPerPixelY).
Printer.TwipsPerPixelX Printer.TwipsPerPixelY
En general, las rutinas del API de Windows requieren las medidas en píxels. Puede utilizar estas propiedades para convertir rápidamente las dimensiones sin cambiar el valor de la propiedad ScaleMode de los objetos.
Devuelve o establece el porcentaje en que se amplía o reduce el resultado impreso. No está disponible en tiempo de diseño.
Printer.Zoom [= numero]
Donde numero es una expresión numérica que evalúa en el porcentaje de ajuste de la salida impresa. El valor predeterminado es 0, que especifica que la página impresa aparece con su tamaño normal.
El valor de la propiedad Zoom ajusta el tamaño de la página impresa, en un factor de Zoom/100, en relación con el tamaño aparente de la salida impresa. Por ejemplo, una página de tamaño carta impresa con Zoom establecido como 50 contiene tantos datos como una página de tamaño 17 por 22 pulgadas, porque el texto y los gráficos impresos se reducen a la mitad de su altura y anchura originales.
El objeto Printers (Colección de objetos Printer)
La colección Printers le permite consultar las impresoras disponibles de forma que pueda especificar la impresora predeterminada de la aplicación. Por ejemplo, se puede querer saber cual de las impresoras disponibles usa un controlador de impresoras determinado. El siguiente código comprueba todas las impresoras disponibles para saber la primera impresora cuya orientación de página sea vertical:
Dim X As Printer For Each X In Printers If X.Orientation = vbPRORPortrait Then ' la define como predeterminada. Set Printer = X ' Sale del bucle. Exit For End If Next
Usando la instrucción Set se designa una de las impresoras de la colección Printers como impresora predeterminada. El ejemplo anterior designa la impresora identificada por la variable de objeto X, como impresora predeterminada de la aplicación.
Nota Si la colección Printers se usa para especificar una impresora concreta, como Printers(3), sólo se puede tener acceso a sus propiedades de modo lectura. Para leer y escribir las propiedades de una impresora concreta, primero se tiene que definir como impresora predeterminada de la aplicación.
METODOS DEL OBJETO PRINTER
Dibuja un círculo, elipse o arco sobre un objeto. No acepta argumentos con nombre.
Printer.Circle Step (x, y), radio, color, inicio, final, aspecto
Vea una explicación completa de este método en el capítulo 7 Métodos Gráficos.
Termina una operación de impresión enviada al objeto Printer, liberando el documento al dispositivo de impresión o a la cola.
Si EndDoc se invoca inmediatamente después del método NewPage, no se imprime la página en blanco adicional.
Termina inmediatamente el trabajo de impresión actual.
Si el Administrador de impresión del sistema operativo controla el trabajo de impresión (el Administrador de impresión está ejecutándose y la impresión en segundo plano está activada), KillDoc elimina el trabajo de impresión actual y la impresora deja de recibir datos. Si el Administrador de impresión no está controlando el trabajo de impresión (la impresión en segundo plano está desactivada), puede que algunos o todos los datos se envíen a la impresora
antes de que KillDoc pueda tener efecto. En este caso, el controlador de la impresora inicializa la impresora en cuanto puede y termina el trabajo de impresión.
Dibuja líneas y rectángulos en un objeto. No acepta argumentos con nombre.
Printer.Line Step (x1, y1) - Step (x2, y2), color, BF
Vea este método mas ampliamente en el capítulo 7 Métodos Gráficos.
Termina la página actual y avanza a la página siguiente en el objeto Printer.
NewPage avanza a la página siguiente y restablece la posición de impresión en la esquina superior izquierda de la nueva página. Cuando se le llama, NewPage incrementa la propiedad Page del objeto Printer en 1.
Presenta el contenido de un archivo gráfico (.BMP, .WMF, .EMF, .ICO o .DIB) en un objeto Printer. No acepta argumentos con nombre.
Printer.PaintPicture imagen, x1, y1, anchura1, altura1, x2, y2, anchura2, altura2, opecod
Puede ver mas información acerca de este método en el capítulo 7 Métodos Gráficos
Imprime texto en el objeto Printer.
Printer.Print lista_salida
Donde lista_salida es una expresión o lista de expresiones a imprimir. Si se omite, se imprimirá una línea en blanco.
En el argumento lista_salida puede poner un texto directamente (Printer.Print “Hola”) o una variable (Printer.Print Textoaescribir). Puede también introducir algunas funciones de cadena como la siguiente:
Spc(n) Se utiliza para insertar caracteres espacio en la salida, donde n es el número de espacios a insertar.
Puede introducir también Tabuladores :
Tab(n) Se utiliza para situar el punto de inserción en un número de columna absoluto, donde n es el número de columna. Utilice Tab sin argumentos para situar el punto de inserción en la línea siguiente, al principio de la zona de impresión.
Nota.- El uso de los tabuladores puede traerle mas problemas que ventajas. Los pasos de tabulación dependen de cada impresora, y lo que es peor, de la programación de la propia impresora. Por lo tanto, al usar Tab no controlamos del todo la posición de las columnas. Es
mucho mas práctico (y seguro) usar Printer.CurrentX y Printer.CurrentY para posicionar el “puntero” de escritura del Objeto Printer.
Al terminar de imprimir Cualquier carácter o tabulador, el objeto Printer generará un Retorno de Carro y un Avance de Línea, excepto que terminemos el método Print con un punto y coma :
Printer.Print “Hola” Printer.Print “¿Qué tal ?” generarán la siguiente salida por impresora :
Si pusiésemos
Printer.Print “Hola ” ; Printer.Print “¿Qué tal ?” la salida por impresora sería :
Nota Debido a que el método Print imprime normalmente con caracteres de espaciado proporcional, es importante recordar que no hay relación entre el número de caracteres impresos y el número de columnas de anchura fija que tales caracteres ocupan. Por ejemplo, una letra ancha, como W, ocupa más de una columna de anchura fija, mientras que una letra estrecha, como I, ocupa menos. Para tener en cuenta los casos en el que se utilizan caracteres con una anchura mayor que la media, deberá asegurarse de que las columnas de las tablas se encuentren lo bastante lejos unas de otras. Como alternativa, puede utilizar en la impresión una fuente de anchura fija (como Courier) para hacer que cada carácter utilice sólo una columna.
Para controlar perfectamente el punto donde se escribirá el siguiente carácter, utilice las propiedades CurrentX y CurrentY. Es mucho mas práctico que usar, por ejemplo, el Tabulador Tab(n)
Si usa Tab(n) con una determinada impresora, puede verse con la desagradable sorpresa que en otra impresora no funciona de la misma forma. Como al desarrollar una aplicación nunca sabe sobre que impresora va a imprimir, es mejor que no utilice Tab(n), sustituyéndolo por CurrentX.
Puede conocer la anchura que va a ocupar un texto en la impresora. (o en un Formulario, en un Picture) usando el Método TextWidth
AnchodelTexto = Printer.TextWidth (Textoaescribir)
Donde AnchodelTexto es una variable tipo Long que indicará el ancho (en las unidades de medida definidas para el objeto Printer - Twips, Pixels, mm, o como siempre recomendaré, las establecidas mediante ScaleWidth y ScaleHeight) y Textoaescribir es una variable tipo String que contiene el texto a escribir.
Si la cadena de texto cuya longitud de impresión queremos analizar contiene retornos de carro, TextWidth devuelve la anchura de la línea más larga.
Mediante este método puede escribir columnas de datos, mucho mejor que usando el Tab(n). Suponga que quiere escribir en una columna, los datos Dato(1), Dato(2), ....Dato(N) que son números. Quiere escribirlos de tal forma que la parte derecha del número quede alineada, como hacemos casi siempre para poder sumarlos con facilidad. Supongamos que hemos establecido las Propiedades Printer.ScaleWidth = 21000 y Printer.ScaleHeight = 29700. Damos por hecho que el papel es un DIN A-4 (210 x 297 mm) por lo que estamos usando, como unidad de medida en ambas coordenadas la centésima de mm.
Si queremos que las cifras queden alineadas en una columna cuya parte final sea 5000 (la parte final de esa columna quedará a 50 mm. del margen izquierdo del papel), deberemos calcular la longitud de cada cifra, y poner, como inicio de escritura de esa cifra 5000 - ancho :
Haríamos un bucle mas o menos como este :
Dim Ancho as Long For I = 1 To N Ancho = Printer.TextWidth (Str(Dato(I))) Printer.CurrentX = 5000 - Ancho Printer.CurrentY = K +(300 * I) Printer.Print Str(Dato(I)) Next I
‘Ancho será una variable Long ‘Imprimiremos N datos ‘Calculamos el ancho (para el Printer) de cada ‘dato. Lo restamos a 5000 para que queden ‘alineados por atrás. La coordenada Y ‘será una constante K mas 3 mm
Observe que el ancho de una determinada cadena de caracteres no tiene porqué ser la misma para un Formulario que para el Printer. Dependerá del tipo de fuente y del tamaño de esa fuente que usemos en cada caso. Por eso, debe poner siempre Printer.TextWidth, Form1.TextWidth, etc.
Este método es idéntico al anterior, pero relativo a la altura. No vamos a alargar la explicación dada la similitud con el anterior. Este método nos permite separar adecuadamente las líneas de un escrito. Es muy útil sobre todo cuando utilizamos distintos tipos de letra dentro del mismo escrito.
Asigna a un punto de un objeto Printer un color especificado. No acepta argumentos con nombre.
Printer.PSet Step (x, y), color
Step Opcional. Palabra reservada que especifica que las coordenadas son relativas a la posición gráfica actual proporcionada por las propiedades CurrentX y CurrentY.
(x, y) Requeridos. Valores de simple precisión que indican las coordenadas horizontales (eje x) y verticales (eje y) del punto a establecer.
color Opcional. Valor entero largo que indica el color RGB especificado para el punto. Si se omite, se utiliza el valor de la propiedad ForeColor. Puede utilizar la función RGB o la función QBColor para especificar el color.
El tamaño del punto dibujado depende del valor de la propiedad DrawWidth. Cuando DrawWidth es 1, PSet establece un píxel al color especificado. Cuando DrawWidth es mayor que 1, se centra el punto en las coordenadas especificadas.
La forma en que se dibuja el punto depende de los valores de las propiedades DrawMode y DrawStyle.
Cuando se ejecuta PSet, las propiedades CurrentX y CurrentY toman el valor del punto especificado en los argumentos.
Vacíe un píxel con el método PSet especificando las coordenadas del píxel y utilizando el valor de la propiedad BackColor como argumento color.
Documents Similar To El Objeto Printer VB
Botón Imprimir... en Access
More From viclo82
mobilevb appforge

References: resolución 
 resolución 

Resolución 

Resolución 
 Resolución 
 Resolución 
 resolución