COMO IMPRIMIR TEXT Y LABEL

LUCIA
10 de Enero del 2005
COMO PUEDO IMPRIMIR TEXTBOX Y LABEL DE UN FORM Y CAMBIAR LAS CORDENADAS PARA QUE CALCE BIEN EN MI HOJA DE IMPRESION

mvallejos
10 de Enero del 2005
Lucia

Para imprimir en una posición específica, debes usar las propiedades CurrentX y CurrentY del objeto printer.
El objeto Printer tiene Width y Height al igual que los formularios y, por defecto, la unidad de medida es Twips.
Otro dato, 57 twips en impresora es aproximadamente 1 mm en la hoja

Ejemplo para imprimir un texto a 3 cm del margen superior y 2 cm de margen izquierdo.

Dim Linea as String

Linea = "Texto de ejemplo"

Printer.CurrentX = 20 * 57 ' 20 mm = 2 cm
Printer.CurrentY = 30 * 57
Printer.Print Linea
Printer.EndDoc


Otro ejemplo, si quisieras centrar un título

Dim Titulo as string
Dim InicioX as Integer

Titulo "Prueba de centrado de texto"
InicioX = (Printer.Width - Printer.TextWidth(Titulo)) / 2

Printer.CurrentY = 30 * 57
Printer.CurrentX = InicioX
Printer.Print Titulo
Printer.EndDoc

espero que sirva

saludos