各位大大 想請問一下,如用printers 這個unit, 把text寫入canvas後 如果不想要讓紙張最上面空出那麼多的空白,該如何做呢?? 如下是列印程式碼 with Printer do begin Title := '櫃檯列印:' cdsBillH.fieldbyname('no').asstring; BeginDoc; Canvas.Font.Size := 16; for j := 0 to Memo1.Lines.Count -1 do Canvas.TextOut(10, j * Canvas.TextHeight(Memo1.Lines.Strings[j]) , Memo1.Lines[j]); EndDoc; end; 還有如何加快列印的速度?? 謝謝 發表人 - spencerkuo 於 2003/10/19 14:45:47

引言: 各位大大 想請問一下,如用printers 這個unit, 把text寫入canvas後 如果不想要讓紙張最上面空出那麼多的空白,該如何做呢?? 如下是列印程式碼 with Printer do begin Title := '櫃檯列印:' cdsBillH.fieldbyname('no').asstring; BeginDoc; Canvas.Font.Size := 16; for j := 0 to Memo1.Lines.Count -1 do Canvas.TextOut(10, j * Canvas.TextHeight(Memo1.Lines.Strings[j]) , Memo1.Lines[j]); EndDoc; end; 還有如何加快列印的速度??

最上方，空白調整大小(紅色部分自行設定)：

  Canvas.TextOut(10,
                100 (j * Canvas.TextHeight(Memo1.Lines.Strings[j])) ,
                Memo1.Lines[j]);

網海無涯，學無止境! 發表人 - qoo1234 於 2003/10/19 16:32:41

引言:

引言: 各位大大 想請問一下,如用printers 這個unit, 把text寫入canvas後 如果不想要讓紙張最上面空出那麼多的空白,該如何做呢?? 如下是列印程式碼 with Printer do begin Title := '櫃檯列印:' cdsBillH.fieldbyname('no').asstring; BeginDoc; Canvas.Font.Size := 16; for j := 0 to Memo1.Lines.Count -1 do Canvas.TextOut(10, j * Canvas.TextHeight(Memo1.Lines.Strings[j]) , Memo1.Lines[j]); EndDoc; end; 還有如何加快列印的速度??

最上方，空白調整大小(紅色部分自行設定)：

  Canvas.TextOut(10,
                100 (j * Canvas.TextHeight(Memo1.Lines.Strings[j])) ,
                Memo1.Lines[j]);

網海無涯，學無止境! 發表人 - qoo1234 於 2003/10/19 16:32:41

現在的問題是如果加上100的高度,那我最上面的空白又更大了, 那如何使它變小呢?? 又因為我是用print server的方式,不能用rs232的控制碼去控制印表機,在這情 況下,又如何控制印表機的進退紙呢??

//不好意思，邊界設定，不是粉懂你的意思，因為你提供的程式碼 粉像delphi Help的範例    The VCL TPrinter object encapsulates details of Windows printers. To get a list of installed and available printers, use the Printers property. The CLX TPrinter object is a paint device that paints on a printer. It generates postscript and sends that to lpr, lp, or another print command.  Both printer objects use a TCanvas (which is identical to the form's TCanvas) which means that anything that can be drawn on a form can be printed as well. To print an image, call the BeginDoc method followed by whatever canvas graphics you want to print (including text through the  TextOut method) and send the job to the printer by calling the EndDoc method.     This example uses a button and a memo on a form. When the user clicks the button, the content of the memo is printed with a 200-pixel border around the page.  To run this example successfully, add Printers to your uses clause.

procedure TForm1.Button1Click(Sender: TObject);    var
  r: TRect;
  i: Integer;
begin
  with Printer do
    begin
      r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
      BeginDoc;
      for i := 0 to Memo1.Lines.Count do
       Canvas.TextOut(200,200   (i *
Canvas.TextHeight(Memo1.Lines.Strings[i])),
                                   Memo1.Lines.Strings[i]);
      Canvas.Brush.Color := clBlack;
      Canvas.FrameRect(r);
      EndDoc;
    end;    end;

網海無涯，學無止境!