Márgenes mínimos de impresión que tiene la impresora predeterminada

'*****************Declaraciones de Módulo*****************************
Declare Function GetDeviceCaps Lib "gdi32" _
    (ByVal hDC As Long, ByVal nIndex As Long) As Long

'Margen X del área física imprimible
Const PHYSICALOFFSETX As Long = 112
'Margen Y del área física imprimible

Const PHYSICALOFFSETY As Long = 113

'*****************Function o Sub******************************************
    Dim LeftOffset As Long, TopOffset As Long

    ' Iniciar un trabajo de impresión para obtener un Printer.hDC) valido
    Printer.Print Space(1)
    Printer.ScaleMode = vbTwips

    ' Obtener el desplazamiento del area imprimible de la página en twips
    LeftOffset = Printer.ScaleX(GetDeviceCaps(Printer.hDC, _
        PHYSICALOFFSETX), vbPixels, vbTwips)
    TopOffset = Printer.ScaleY(GetDeviceCaps(Printer.hDC, _
        PHYSICALOFFSETY), vbPixels, vbTwips)

Saludos

Santiago Jimeno (Madrid)
SJIMENOH28@smail.ocefss.ucm.es

    -----Mensaje original-----
    De: Marcelo López <loaky@softhome.net>
    Para: Lista VB <vb-esp@ccc.uba.ar>
    Fecha: lunes 21 de diciembre de 1998 16:45 p.m.
    Asunto: (VB-ESP) Margenes de impresora predeterminada


    Hola:

            Esta vez seré mas breve, como puedo obtener los márgenes mínimos
de impresión que tiene la impresora predeterminada, mediante código V.B. o
mediante API.


    Marcelo López
    loaky@softhome.net