我想用
代码控制RM
报表的双面
打印,现在的问题是报表页的duplex
属性值设为rmdpNone时,通过
设置打印机的双面打印属性打出来还是单面,如果直接设置报表页的duplex属性为rmdpHorizontal就可以实现双打,但是我不想在报表中设置,而是在代码中实现,不知道可有
办法,请高手指教,十分感谢,我的代码大概如下:
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
if DeviceHandle<>0 then
DevMode := GlobalLock(DeviceHandle);
//DevMode^.dmFields := DevMode^.dmFields or DM_DUPLEX;
//DevMode^.dmDuplex := DMDUP_HORIZONTAL;
for J := 0 to dmRMprint.RMGrid Report.Pages.Count-1 do
begin
case DevMode^.dmDuplex of
Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
if DeviceHandle<>0 then
DevMode := GlobalLock(DeviceHandle);
//DevMode^.dmFields := DevMode^.dmFields or DM_DUPLEX;
//DevMode^.dmDuplex := DMDUP_HORIZONTAL;
for J := 0 to dmRMprint.RMGrid Report.Pages.Count-1 do
begin
case DevMode^.dmDuplex of