Márgenes no imprimibles

Ya he conseguido obtener los márgenes no imprimibles de la impresora, por si a alguien le interesa explico como a continuación:

Declaración de función y constantes:

Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long

Global Const PHYSICALOFFSETX = 112
Global Const PHYSICALOFFSETY = 113

Llamada a la función:

GetDeviceCaps(Printer.hDC, PHYSICALOFFSETX)
GetDeviceCaps(Printer.hDC, PHYSICALOFFSETY)

Publicado en microsoft.public.es.vb por Gorgos

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s