如何在程序里控制打印纸张大小(A3,A4)和打印方向?不想打开设置窗口 ---------------------------------------------------------------
Uses Printer; ......... procedure TForm1.Button1Click(Sender: TObject); var ADevice, ADriver, APort: array[0..255] of Char; DeviceHandle: THandle; DevMode: PDeviceMode; begin //初始化打印机 Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle); if DeviceHandle = 0 then begin Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(ADevice, ADriver, APort, DeviceHandle); end; if DeviceHandle = 0 then Raise Exception.Create('不能初始化打印机!') else DevMode := GlobalLock(DeviceHandle); if DeviceHandle <> 0 then begin with DevMode^ do begin dmFields := dmFields or DM_ORIENTATION; //在下面这里设置打印方向 dmOrientation := DMORIENT_LANDSCAPE; //DMORIENT_PORTRAIT dmPaperSize := DMPAPER_A3; Printer.SetPrinter(ADevice, ADriver, APort, DeviceHandle); GlobalUnLock(DeviceHandle); end; end;
PrinterSetupDialog1.Execute; //验证一下设置是否成功了 end;
************* printer.pagewidth是只读属性 ---------------------------------------------------------------
参考这个
var
hDMode: THandle; PDMode: PDEVMODE; Printer.GetPrinter(Device, Driver, Port, hDMode);
if hDMode <> 0 then begin pDMode := GlobalLock(hDMode); if pDMode <> nil then begin pDMode^.dmFields := DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH; pDMode^.dmPaperSize := DMPAPER_USER; pDMode^.dmPaperWidth := APaperWidth; pDMode^.dmPaperLength := APaperHeight;
pDMode^.dmFields:=pDMode^.dmFields or DM_ORIENTATION; pDMode^.DMORIENTATION:= Direct; end; end; //打印机设置的纸张大小 ---------------------------------------------------------------
在执行打印前调用以下函数: procedure SetPaperSize(X, Y: Integer); // 单位是0.1mm // A4时 Printer.Pagewidth:=1440; A5时 Printer.Pagewidth:=1049; // B5时 Printer.Pagewidth:=1290; 16K时 Printer.Pagewidth:=1035; // lq1600宽行打印机这个值宽度最大为42cm左右, 长度大约2m。 //改变devicemode结构 var Device: array[0..255] of char; Driver: array[0..255] of char; Port: array[0..255] of char; hDMode: THandle; PDMode: PDEVMODE; begin Printer.PrinterIndex := Printer.PrinterIndex; Printer.GetPrinter(Device, Driver, Port, hDMode); if hDMode <> 0 then begin pDMode := GlobalLock(hDMode); if pDMode <> nil then begin if (x = 0) or (y = 0) then begin {Set to legal} pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize; {pDMode^.dmPaperSize := DMPAPER_LEGAL; changed by wulianmin} pDMode^.dmPaperSize := DMPAPER_FANFOLD_US; end else begin {Set to custom size} pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH; pDMode^.dmPaperSize := DMPAPER_USER; pDMode^.dmPaperWidth := x {SomeValueInTenthsOfAMillimeter}; pDMode^.dmPaperLength := y {SomeValueInTenthsOfAMillimeter}; end; {设定纸张来源} pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL; pDMode^.dmDefaultSource := DMBIN_MANUAL;
GlobalUnlock(hDMode); end; end; Printer.PrinterIndex := Printer.PrinterIndex; //以下开始打印 Printer.BeginDoc; Printer.Canvas.TextOut(100,100, 'Test 1'); Printer.EndDoc; end;
|