FiveTech Software tech support forums

Code: Select all  Expand view

function nOrientPrn()
    local cret, oprn
    PRINTER oPrn
    cRet := oPrn:getmodel()
     ? cRet
    oPrn:SetLandscape()
    ? oPrn:nOrient
    oPrn:SetPortrait()
   ? oPrn:nOrient
     endprint
 return cret

function SetOrient(nOrient)
local cret, oprn

//#define DMORIENT_PORTRAIT 1
//#define DMORIENT_LANDSCAPE 2


PRINTER oPrn
if nOrient=2
oPrn:SetLandscape()
else
oPrn:SetPortrait()
endif
endprint

return NIL

function nOrientPrn()
local cret, oprn

PRINTER oPrn
cRet := oPrn:getmodel()
? oPrn:nOrient := oPrn:GetOrientation()
endprint

return cret

Code: Select all  Expand view

  PRINT oPrn PREVIEW
   oPrn:SetPortrait()
   ? oPrn:GetOrientation() // --> 1
   oPrn:SetLandScape()
   ? oPrn:GetOrientation() // --> 2
 

Once the DEVMODE structure has been modified to suit our configuration, we can either create a
printer device context using the CreateDC API call:

Code: Select all

HDC hDC = CreateDC( _T( "winspool" ), szPrinter, NULL, lpDevMode );

Or make this configuration as the default for this printer and for all applications using this printer.

Code: Select all

DWORD dw;
PRINTER_INFO_2 *pi2;
// get default printer info structure which contains the DEVMODE
GetPrinter( m_hPrinter, 2, NULL, 0, &dw );
pi2 = (PRINTER_INFO_2 *)GlobalAllocPtr( GHND, dw );
GetPrinter( m_hPrinter, 2, (LPBYTE)pi2, dw, &dw );
// set the new printer info structure
pi2->pDevMode = lpDevMode;
SetPrinter( m_hPrinter, 2, (LPBYTE)pi2, 0 );
GlobalFreePtr( pi2 );
// notify applications that the default DEVMODE has changed
SendMessageTimeout( HWND_BROADCAST, WM_DEVMODECHANGE, 0, (LPARAM)szPrinter,
SMTO_NORMAL, 1000, NULL );

Code: Select all  Expand view

function hochformat()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /Sr /n "Seminar" /a "c:\setprnter\Seminarhoch.dat"')
return nil

function landscape()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /Sr /n "Seminar" /a "c:\setprnter\Seminar.dat"')
return nil

function Setdefault()
    winexec('RUNDLL32.EXE PRINTUI.DLL,PrintUIEntry /y /n "Seminar"')
return nil