各位大大好:
我现在需要用连续打印功能,每张纸大小都是相同的,纸和纸之间是可以撒下来的那种,但每次第一张打完后,打第二张时,中间就会隔一大段距离,我应该怎么调整?


不胜感激之至!

对了，我使用QuickReport元件,纸是有孔的连续纸，打印机是OKI6100F

我的一个朋友说，以前如果你是单张纸打印，现在突然想使用连续有孔的那种打印纸，跟源码没关系，只要调打印机设置就行，是这样吗？

編輯記錄

是的

===================引 用 luowy651 文 章===================
各位大大好:
我现在需要用连续打印功能,每张纸大小都是相同的,纸和纸之间是可以撒下来的那种,但每次第一张打完后,打第二张时,中间就会隔一大段距离,我应该怎么调整?


不胜感激之至!

对了，我使用QuickReport元件,纸是有孔的连续纸，打印机是OKI6100F

我的一个朋友说，以前如果你是单张纸打印，现在突然想使用连续有孔的那种打印纸，跟源码没关系，只要调打印机设置就行，是这样吗？

這應是你的QR中所定義的紙張大小可輸出的範圍比打印機的紙張的高度還大的原因, 
所以如果不是A4或LETTER 標準之類的格式,最好 QR中要指定好高度

procedure TForm1.Button4Click(Sender: TObject);
begin
QuickRep1.Page.PaperSize := Custom;
QuickRep1.PrinterSettings.PaperSize := Custom;
QuickRep1.Page.Orientation := poLandscape;//poPortrait; 横向或竖向
QuickRep1.Prepare;
QuickRep1.Preview;
end;

ps: 要注意uses QRPrntr
implementation
uses printers;

編輯記錄