Impresion Visual Basic 6

[ema21del9]

Buenas gente, lo que quiero saber es si es posible comenzar la impresion desde la mitad de la pagina (tomando en cuenta que es la tipica A4) hacia adelante.

De esta manera busco imprimir un mismo listview al principio de la pagina, y el mismo desde la mitad en adelante, para tenerlo 2 veces en la misma hoja dividido de esa manera.

Gracias.

[David]

Puedes usar la propiedad CurrentY del objeto Printer para indicar la coordenada vertical en que se imprimirá.

[ema21del9]

Pero como se cual es la mitad de la pagina para asignarle dicho valor a CurrentY?

[SalomonSab]

un hoja tamaño carta tienes estas dimensiones

Código:

Horizontal = 21.59 Cm
Vertical = 27.94 Cm

ya con eso puedes ubicar las coordenas que te dice el Amigo David

[ema21del9]

Perfecto, pero ahora para guiarme, 1 entero de la propiedad CurrentY o CurrentX a cuantos centimetros reales equivale? para poder hacer la formula correcta, muchas gracias.

[David]

CurrentX y CurrentY dependen de ScaleMode. Si no se cambia nada, la medida es en Twips.

Sólo tienes que hacer algunas impresiones de prueba para posicionarlo en el lugar deseado.

[Judgement]

Saludos, prueba si te sirve esto:
http://www.translatorscafe.com/cafe/...eter-%5Bcm%5D/

[SalomonSab]

Haber si te sirve este ejemplo

Código:

'Imprimimos la hoja en forma Horizontal
    Printer.Orientation = vbPRORPortrait '2 Orientación Horizontal vbPRORLandscape '1 Horientación Vertical "vbPRORPortrait"
    Printer.ScaleMode = vbCentimeters 'Ponemos la Escala en Centimetros
    'Margenes
    
    'Cargamos nuevas fuentes y tamaños para la grilla
    Printer.Font = "Verdana"
    Printer.FontSize = 12
    Printer.ForeColor = vbBlack
    Printer.FontBold = True
    
    'Ingresamos el primer dato
    Printer.CurrentX =  1
    Printer.CurrentY = 3
    Printer.Print "Mi primera impresión"

    'Final de la impresión
    Printer.EndDoc