XProfan

In den "Programmheader" die DEF Zeilen schreiben
DEF @GetProfileString(5) !"kernel32","GetProfileStringA"
DEF @OpenPrinter(3) !"winspool.drv","OpenPrinterA"
DEF @DocumentProperties(6) !"winspool.drv","DocumentPropertiesA"
DEF @GetPrinter(5) !"winspool.drv","GetPrinterA"
DEF @GetLastError(0) !"kernel32","GetLastError"

Proc Drucker_Orientation_Umstellen

    Parameters Orientation% 1=Hochformat, 2=Querformat
    Declare SectionName$,KeyName$,DefautString$,ReturnBuffer#,Printername$,PHANDLE#
    Declare Pdevice$,Count&,Zähler%,DevMode#,DevMode2#,Länge&,Fehler&
    DIM ReturnBuffer#,256
    DIM PHANDLE#,4
    Addstring "Ausrichtung soll auf "+@STR$(Orientation%)+" gesetzt werden!"
    Let SectionName$="Windows"
    Let KeyName$="device"
    DefautString$=""
    @GetProfileString(@ADDR(SectionName$),@ADDR(KeyName$),@ADDR(DefautString$),ReturnBuffer#,256)
    LET Printername$=@SubStr$(@STRING$(ReturnBuffer#,0),1,",")
    Addstring "Aus WIN.INI ausgelesener Standartdrucker: "+Printername$
    LET Fehler&=@OpenPrinter(@ADDR(Printername$),PHANDLE#,0)
    Addstring "Fehlercode OpenPrinter: "+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    Addstring "Fehlercode letzte API: "+@STR$(Fehler&)
    LET Länge&=@DocumentProperties(%HWND,@Long(PHANDLE#,0),@ADDR(Pdevice$),0,0,0)
    Addstring "Länge der DEVMODE Struktur: "+@STR$(Länge&)
    Let Fehler&=@GetLastError()
    Addstring "Fehlercode letzte API: "+@STR$(Fehler&)
    DIM DevMode#,Länge&+2000
    DIM DevMode2#,Länge&+2000
    LET FEHLER&=@DocumentProperties(%HWND,@Long(PHANDLE#,0),@ADDR(Pdevice$),DevMode#,0,2)
    Addstring "Rückgabe von DocumentProperties beim Auslesen der Struktur: "+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    Addstring "Fehlercode letzte API: "+@STR$(Fehler&)
    LET FEHLER&=@DocumentProperties(%HWND,@Long(PHANDLE#,0),@ADDR(Pdevice$),DevMode2#,0,2)
    Addstring "Rückgabe von DocumentProperties beim Auslesen der Struktur: "+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    Addstring "Fehlercode letzte API: "+@STR$(Fehler&)
    LET Fehler&=@Word(DevMode#,44)
    Addstring "Augenblickliche Ausrichtung: "+@STR$(Fehler&)
    Long DevMode#,40=1
    Word DevMode#,44=Orientation%
    LET FEHLER&=@DocumentProperties(%HWND,@Long(PHANDLE#,0),@ADDR(Pdevice$),DevMode2#,DevMode#,9)
    Addstring "Rückgabe von DocumentProperties beim Setzen der Eigenschaft: "+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    Addstring "Fehlercode letzte API: "+@STR$(Fehler&)
    LET FEHLER&=@DocumentProperties(%HWND,@Long(PHANDLE#,0),@ADDR(Pdevice$),DevMode#,0,2)
    Addstring "Rückgabe von DocumentProperties beim Auslesen der Struktur: "+@STR$(Fehler&)
    Let Fehler&=@GetLastError()
    Addstring "Fehlercode letzte API: "+@STR$(Fehler&)
    LET Fehler&=@Word(DevMode#,44)
    Addstring "Neue Ausgelesene Ausrichtung: "+@STR$(Fehler&)
    DELETEOBJECT @Long(PHANDLE#,0)
    Dispose ReturnBuffer#
    Dispose DevMode#
    Dispose PHANDLE#
    Dispose DevMode2#

Endproc

Drucker_Orientation_Umstellen 2
@EDitBox("Ruckgab