XProfan

Drucker-Ausrichtung feststellen (Hochformat/Querformat) von Andreas Miethe
 $H windows.ph
Declare H&,V&
cls
waitinput
StartPrint *Test
H& = ~GetDeviceCaps(&PDC,~HORZSIZE)
V& = ~GetDeviceCaps(&PDC,~VERTSIZE)

If H& > V&

    Messagebox(quer,meldung,0)

Else

    Messagebox(hoch,meldung,0)

Endif

EndPrint

**** ChkPrnForm.inc - Abgeleitet aus einem Beispiel von Andreas Miethe ****
Def GDC(2) !GDI32,GetDeviceCaps
Def DDC(1) !GDI32,DeleteDC
Def CIC(4) !gdi32.dll,CreateICA
Def GSP(0) SubStr$(ReadIni$(WIN.INI,Windows,Device),1,,)

Proc ChkPrnForm

    Declare DDC&,Drucker$,hqForm&
    Drucker$ = GSP()
    DDC& = CIC(0,ADDR(Drucker$),0,0)

    If DDC&

        Case (Mul(GDC(DDC&,6),10) > Mul(GDC(DDC&,4),10)): hqForm& = 0   Hochformat
        Case (Mul(GDC(DDC&,6),10) < Mul(GDC(DDC&,4),10)): hqForm& = 1   Querformat
        DDC(DDC&)

    EndIf

    Return hqForm&

EndProc

***** Beispiel *****

IfNot ChkPrnForm()

    MessageBox(Hochformat,Druckformat,0)

Else

    MessageBox(Querformat,Druckformat,0)

EndIf

End
***** Beispiel *****