چاپ دوطرفه با پرینترهای دو طرفه

[idehrayan]

سلام به همه اساتید حرفه ای
چطوری میتونیم در پرینترهایی که قابلیت چاپ دوطرفه را دارن پرینت دو طرفه انجام بدیم.
البته در صورت امکان بدون استفاده از ابزار های گزارش گیری.

[idehrayan]

{
You typically switch a printer to duplex mode by changing its
TDeviceMode(API: DEVMODE)record .But first you should test whether
the installed printer driver supports this:
}
uses
printers, winspool;


function PrinterSupportsDuplex: Boolean;
var
Device, Driver, Port: array [0..255] of Char;
hDevMode: THandle;
begin
Printer.GetPrinter(Device, Driver, Port, hDevmode);
Result :=
WinSpool.DeviceCapabilities(Device, Port, DC_DUPLEX, nil , nil ) <>
0;
end ;


{if it does you can try to switch the duplex mode on before you call
richedit.print:}




var
Device, Driver, Port: array [0..80] of Char;
DevMode: THandle;
pDevmode: PDeviceMode;
begin
// Get printer device mode 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
dmDuplex := DMDUP_VERTICAL;
dmFields := dmFields or DM_DUPLEX;
end ;
finally
// unlock devmode handle.
GlobalUnlock(Devmode);
end ;
end ; { If }
end ;