請問: 因為要印的格式比較複雜,所以直接寫程式用TPrinter印,只是沒有辦法預覽,不知各位有沒有什麼辦法...,還是說QReport也可以直接用Canvas->TextOut列印?

Hi wyvern,    在 QuickReport 上放個 QRImage 然後，在該 QRImage1 畫上你要的東西，再進行 QuickRep1.Preview

procedure TForm1.Button1Click(Sender: TObject);
begin
    QRImage1.Canvas.TextOut(10,10,'You are wrong !!');
    QRImage1.Canvas.LineTo(400,300);
    QuickRep1.Preview;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

不行耶? preview後什麼都沒有出現(頁數=0), 倒是沒執行preview的話,QuickReport上會出現output的東西, 只是這樣如果是兩頁以上好像就不行了.

Hi wyvern,    於 QuickReport 的 OnNeedData 事件加入程式碼，在無 DataSet 狀況下自行控制列印頁數    你可你看一下 QuickReport 的範例程式，路徑如下(視安裝路徑請自行更改) C:\Program Files\Borland\Delphi7\Demos\Quickrpt\Qr3\qr3demo.dpr 內的 OnNeedData Example     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

不好意思,可以將那一段程式貼出來嗎? 小弟用的是BC6,找不到這樣的範例.

Hi wyvern,    該範例程式程式碼如下

{ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  :: QuickReport 3.0 for Delphi 3.0/4.0/5.0                  ::
  ::                                                         ::
  :: Demo report that is populated by the OnNeedData event   ::
  ::                                                         ::
  :: Copyright (c) 1995-1999 QuSoft AS                       ::
  :: All Rights Reserved                                     ::
  ::                                                         ::
  :: web: http://www.qusoft.com  fax:  47 22 41 74 91        ::
  ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: }
unit needdata;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt, Qrctrls;    type
  TfrmNeedData = class(TForm)
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRLabel1: TQRLabel;
    TitleBand1: TQRBand;
    QRSysData1: TQRSysData;
    procedure FormCreate(Sender: TObject);
    procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
  private
    { Private declarations }
    SomeList: TStringlist;
    CurrentIndex: integer;
  public
    { Public declarations }
  end;    var
  frmNeedData: TfrmNeedData;    implementation    {$R *.dfm}    procedure TfrmNeedData.FormCreate(Sender: TObject);
var
  i: integer;
begin
  SomeList := TStringlist.Create;      for i := 0 to 500 do
    SomeList.Add('Line '   IntToStr(i));
end;    procedure TfrmNeedData.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  // You must reset your data in the BeforePrint event
  // or when you print from the preview, the report will
  // start with the last value(s)
  CurrentIndex := 0;
end;    procedure TfrmNeedData.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  // If MoreData is true, then QuickReport will print
  // another detail band.  When you set it to false,
  // the report is done.        MoreData := (CurrentIndex < SomeList.Count);      if MoreData then
  begin
    QRLabel1.Caption := SomeList[CurrentIndex];        // Here's how to set the progress bar
    QuickRep1.QRPrinter.Progress := (Longint(CurrentIndex) * 100) div SomeList.Count;
  end
  else
    QuickRep1.QRPrinter.Progress := 100;      Inc(CurrentIndex);
end;    end.

你可以修改一下，將 StringList 更改為 ImageList 並將 ImageList 的內容塞給 QRImage 來達到你的需求 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

對不起,Fishman大大,小弟還是不太懂, ImageList的內容要如何塞給QRImage?

Hi wyvern,    

procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  Inc(CurrPage);
  QRImage1.Picture := NIL;
  ImageList1.GetBitmap(CurrPage - 1,QRImage1.Picture.Bitmap);
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Printer DC跟一般DC有何不同?還不都一樣(95%以上相同,除某些API在Printer上,因Driver沒實做忽略外) 既然都一樣,那你既然能畫到Printer DC上,同樣的程式碼就不能畫到一般DC上嗎(除DPI不一樣外,但那可用SetMapMode,SetViewportExtEx,SetWindowExtEx解決掉)?

可以了. 只要可以控制DetailBand就不成問題了.