bestlong 怕失憶論壇

標題: 列印時改變紙張大小 [打印本頁]
作者: bestlong    時間: 2006-5-9 18:39     標題: 列印時改變紙張大小

  1. // 在执行打印前调用以下函数：
  2. // x,y:纸张尺寸,单位是0.1mm
  3. procedure SetPaperSize(X, Y: Integer);
  4. var
  5.   Device: array[0..255] of char;
  6.   Driver: array[0..255] of char;
  7.   Port: array[0..255] of char;
  8.   hDMode: THandle;
  9.   PDMode: PDEVMODE;
  10. begin
  11.   Printer.PrinterIndex := Printer.PrinterIndex;
  12.   Printer.GetPrinter(Device, Driver, Port, hDMode);
  13.   if hDMode <> 0 then
  14.   begin
  15.     pDMode := GlobalLock(hDMode);
  16.     if pDMode <> nil then
  17.     begin
  18.       if (x = 0) or (y = 0) then
  19.       begin
  20.         {设置合法的纸张大小}
  21.         pDMode^.dmFields := pDMode^.dmFields or dm_PaperSize;
  22.         pDMode^.dmPaperSize := DMPAPER_FANFOLD_US; // 合法的纸张大小标示
  23.       end
  24.       else
  25.       begin
  26.         {设置用户自定义纸张}
  27.         pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH;
  28.         pDMode^.dmPaperSize := DMPAPER_USER; // 设置为用户自定义纸张标示
  29.         pDMode^.dmPaperWidth := x; // 纸张宽度
  30.         pDMode^.dmPaperLength := y; // 纸张长度
  31.       end;
  32.       {设定纸张来源}
  33.       pDMode^.dmFields := pDMode^.dmFields or DMBIN_MANUAL;
  34.       pDMode^.dmDefaultSource := DMBIN_MANUAL;

  36.       GlobalUnlock(hDMode);
  37.     end;
  38.   end;
  39. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5