全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3239
推到 Plurk!
推到 Facebook!

自製QuickReport的Preview視窗,如何在預覽時設定,紙張大小,邊界,印表機等設定?

尚未結案
jeffreck
高階會員


發表:247
回覆:340
積分:197
註冊:2003-01-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-02-18 15:03:02 IP:61.219.xxx.xxx 未訂閱
各位前輩請教一下: 自製QuickReport的Preview視窗,如何在預覽時設定, 紙張大小,邊界,印表機等設定 原本在開報表前可以用 QuickRep1.Page.LeftMargin 來設定邊界但在預覽時如何設定?? F_Report1.QuickRep1.Page.LeftMargin :=20 ; F_Report1.QuickRep1.Preview; 謝謝各位前輩!! 這真不是個大寶庫...
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-19 10:16:50 IP:210.65.xxx.xxx 未訂閱
Hi:    以下程式碼,是我自己寫的 PreView From 上的一些控制 Button,主要是訪元預覽畫面功能,供你參考,其中關於印表機設定在以下紅色字體部分(ToolButton8)
procedure TFormPreview.ToolButton1Click(Sender: TObject);
begin
    QRPreview1.ZoomToFit;
end;    procedure TFormPreview.ToolButton2Click(Sender: TObject);
begin
    QRPreview1.Zoom := 100;
end;    procedure TFormPreview.ToolButton3Click(Sender: TObject);
begin
    QRPreview1.ZoomToWidth;
end;    procedure TFormPreview.ToolButton4Click(Sender: TObject);
begin
    QRpreview1.PageNumber := 1;
    SetStatusBarText;
end;    procedure TFormPreview.ToolButton5Click(Sender: TObject);
begin
    IF QRpreview1.PageNumber > 1 THEN
        QRpreview1.PageNumber := QRpreview1.PageNumber - 1;
    SetStatusBarText;
end;    procedure TFormPreview.ToolButton6Click(Sender: TObject);
begin
    IF QRpreview1.QRPrinter.PageCount > QRpreview1.PageNumber THEN
        QRpreview1.PageNumber := QRpreview1.PageNumber   1;
    SetStatusBarText;
end;    procedure TFormPreview.ToolButton7Click(Sender: TObject);
begin
    QRpreview1.PageNumber := QRpreview1.QRPrinter.PageCount;
    SetStatusBarText;
end;    procedure TFormPreview.ToolButton8Click(Sender: TObject);
begin
    QRPreview1.QRPrinter.PrintSetup;
end;    procedure TFormPreview.ToolButton9Click(Sender: TObject);
begin
   QRPreview1.QRPrinter.Print;
end;
procedure TFormPreview.ToolButton10Click(Sender: TObject);
var
    V_Save : BOOLEAN;
begin
    V_Save := False;
    IF SaveDialog1.Execute THEN
        IF FileExists(SaveDialog1.FileName) THEN
            BEGIN
                IF Application.MessageBox(PChar('檔案 '   SaveDialog1.FileName   ' 已存在,是否取代?' ),'確認取代檔案',MB_ICONINFORMATION   MB_YESNO   MB_DEFBUTTON2) = IDYES then
                    V_Save := True
                ELSE
                    V_Save := False;
            END
        ELSE
            V_Save := True;
        IF V_Save THEN
            BEGIN
                IF UpperCase(ExtractFileExt(SaveDialog1.FileName)) = '.CSV' THEN
                    QRPreview1.QRPrinter.ExportToFilter(TQRCommaSeparatedFilter.Create(SaveDialog1.FileName))
                ELSE IF (UpperCase(ExtractFileExt(SaveDialog1.FileName)) = '.TXT') THEN
                    QRPreview1.QRPrinter.ExportToFilter(TQRAsciiExportFilter.Create(SaveDialog1.FileName))
                ELSE IF (UpperCase(ExtractFileExt(SaveDialog1.FileName)) = '.HTM') OR (UpperCase(ExtractFileExt(SaveDialog1.FileName)) = '.HTML') THEN
                    QRPreview1.QRPrinter.ExportToFilter(TQRHTMLDocumentFilter.Create(SaveDialog1.FileName))
                ELSE
                    QRPreview1.QRPrinter.Save(SaveDialog1.FileName);
            END;
{   HTML : TQRHTMLDocumentFilter
    ASCII : TQRAsciiExportFilter
    CSV : TQRCommaSeparatedFilter}
end;
procedure TFormPreview.ToolButton11Click(Sender: TObject);
begin
    IF OpenDialog1.Execute THEN
        BEGIN
            QRPreview1.QRPrinter.Master := NIL;
            QRPreview1.QRPrinter.Load(OpenDialog1.Filename);
            QRPreview1.PageNumber := 1;
            QRPreview1.PreviewImage.PageNumber := 1;
            QRPreview1PageAvailable(NIL,1);
        END;
end;    procedure TFormPreview.ToolButton12Click(Sender: TObject);
begin
    Close;
end;    procedure TFormPreview.SetStatusBarText();
begin
    StatusBar1.SimpleText := '第 '   IntToStr(QRPreview1.PageNumber)   ' 頁/共 '   IntToStr(QRPreview1.QRPrinter.PageCount)   ' 頁';
end;
---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
cmc92
一般會員


發表:3
回覆:13
積分:3
註冊:2003-11-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-02-19 15:30:43 IP:163.13.xxx.xxx 未訂閱
請問 如果我想要在 preview(或print)前指定要 preview 的起迄頁次,要如何做呢? 例如:已知報表有10頁,但每次執行preview 前可指定只顯示 3-6頁的報表 不知如果要做到這樣的功能, 要如何做呢 ? 謝謝
Fishman
尊榮會員


發表:120
回覆:1949
積分:2163
註冊:2006-10-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-02-20 13:48:12 IP:210.65.xxx.xxx 未訂閱
hi:    cmc92,我剛剛試了一下,在 OnNeedData 事件中增加以下之指令,看起來好像可以,你再測試看看
procedure TQueryForm.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
    Inc(CurrentPage);
    if ((CurrentPage >= 3) and (CurrentPage <= 6)) then
        begin // Enable 所有的 Band
            QRBand1.Enabled := true;
            QRBand2.Enabled := true;
        end
    else
        begin // Disable 所有的 Band
            QRBand1.Enabled := false;
            QRBand2.Enabled := false;
        end;
end;
或是也可以在自己寫的預覽視窗中進行控制 ---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman
ellenliu
一般會員


發表:2
回覆:4
積分:1
註冊:2002-04-17

發送簡訊給我
#5 引用回覆 回覆 發表時間:2012-02-10 09:43:19 IP:59.126.xxx.xxx 訂閱
fishman大大:
在您提供的範例,預覽資料有5頁,我如果去更改印表機設定只要列印第2頁,但印出來還是5頁,
請問這有方法解決嗎?
系統時間:2017-10-19 2:35:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!