问题标题 : 如何控制打印机？ （ 100 分）

答案提供者 : Another_eYes-25,jiangtao-20,zhaoyipeng-30, 王寒松 -25,

来自： pcw   时间： 99-01-24  22:38:05  ID: 99037

如何用 DELPHI4 编程序：使打印时纸张连续不断地打下去（不跳纸） ?

来自： Another_eYes   时间： 99-1-24 23:07:07 ID: 99040

windows 下不跳纸不可能，只能对跨页缝的那一行特殊处理。

1. 取得页长 (in pixel)

2. 打印时跟踪每行的高度和行间距 , 判断是否超过当前页长 , 假设超过值为 x)

3. 如果正好一页打完则从换页继续打印下一行；如果这行跨页，则换页，设开始位置为 (x- 行高 ) ，重打当前行一次

4. 继续以上操作直到全部打完

来自： 王寒松   时间： 99-3-9 4:28:53 ID: 101950

如果你是图形打印的话，那么跳纸问题只好自己去判断跟踪页高和当前打印位置来判断是否该换纸继续打。另一个方法是使用 DOS 下的行打印技术，在 WINDOWS 下实现比较麻烦。下面是将一个文本文件使用行打印技术到打印机的办法与 WINDOWS 图形打印不同的是：在行打印中需要绕过打印机驱动。

procedure PrintFile(const sFileName: string);

const

 BufSize = 16384;

type

 TDoc_Info_1 = record

   pDocName: pChar;

   pOutputFile: pChar;

   pDataType: pChar;

 end;

var

 Count, BytesWritten: integer;

 hPrinter: THandle;

 Device : array[0..255] of char;

 Driver : array[0..255] of char;

 Port   : array[0..255] of char;

 hDeviceMode: THandle;

 DocInfo: TDoc_Info_1;

 f: file;

 Buffer: Pointer;

begin

 Printer.PrinterIndex := -1;

 Printer.GetPrinter(Device, Driver, Port, hDeviceMode);

 if not WinSpool.OpenPrinter(@Device, hPrinter, nil) then exit;

 DocInfo.pDocName := 'MyDocument';

 DocInfo.pOutputFile := nil;

 DocInfo.pDatatype := 'RAW';

 if StartDocPrinter(hPrinter, 1, @DocInfo) = 0 then

 begin

   WinSpool.ClosePrinter(hPrinter);

   exit;

 end;

 if not StartPagePrinter(hPrinter) then

 begin

   EndDocPrinter(hPrinter);

   WinSpool.ClosePrinter(hPrinter);

   exit;

 end;

 System.Assign(f, sFileName);

 try

   Reset(f, 1);

   GetMem(Buffer, BufSize);

   while not eof(f) do

   begin

     Blockread(f, Buffer^, BufSize, Count);

     if Count > 0 then

     begin

       if not WritePrinter(hPrinter, Buffer, Count, BytesWritten) then

       begin

         EndPagePrinter(hPrinter);

         EndDocPrinter(hPrinter);

         WinSpool.ClosePrinter(hPrinter);

         FreeMem(Buffer, BufSize);

         exit;

       end;

     end;

   end;

   FreeMem(Buffer, BufSize);

   EndDocPrinter(hPrinter);

   WinSpool.ClosePrinter(hPrinter);

 finally

   System.Closefile( f );

 end;

end;

上面的例子改一改就可以做成通用的行打，注意 uses 子句里一定要加上 WinSpool 。