red faction | Code :
- var
- Device, Driver, Port: array[0..80] of Char;
- DevMode: THandle;
- pDevmode: PDeviceMode;
- begin
- // Get printer device name etc.
- Printer.GetPrinter(Device, Driver, Port, DevMode);
- // force reload of DEVMODE
- Printer.SetPrinter(Device, Driver, Port, 0) ;
- // get DEVMODE handle
- Printer.GetPrinter(Device, Driver, Port, DevMode);
- If Devmode <> 0 Then Begin
- // lock it to get pointer to DEVMODE record
- pDevMode := GlobalLock( Devmode );
- If pDevmode <> Nil Then
- try
- With pDevmode^ Do Begin
- // modify paper size
- //dmPapersize := DMPAPER_A4;
- // tell printer driver that dmPapersize field contains
- // data it needs to inspect.
- dmFields := pDevMode^.dmFields or DM_ORIENTATION;
- dmOrientation := DMORIENT_LANDSCAPE;
- End;
- Printer.SetPrinter(Device, Driver, Port, DevMode);
- finally
- // unlock devmode handle.
- GlobalUnlock( Devmode );
- end;
- End; { If }
- end;
|
jai trouve ceci aussi mais ca ne fonctionne pa |
(jai pas reussi a le telecharger sur le site dadobe jai une erreur 403 apres que je me soit loggé c payant ?)
