各位前輩請教一下: 自製QuickReport的Preview視窗,如何在預覽時設定, 紙張大小,邊界,印表機等設定 原本在開報表前可以用 QuickRep1.Page.LeftMargin 來設定邊界但在預覽時如何設定?? F_Report1.QuickRep1.Page.LeftMargin :=20 ; F_Report1.QuickRep1.Preview; 謝謝各位前輩!! 這真不是個大寶庫...

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

請問 如果我想要在 preview(或print)前指定要 preview 的起迄頁次，要如何做呢? 例如:已知報表有10頁，但每次執行preview 前可指定只顯示 3-6頁的報表 不知如果要做到這樣的功能, 要如何做呢 ? 謝謝

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

fishman大大:
在您提供的範例,預覽資料有5頁,我如果去更改印表機設定只要列印第2頁,但印出來還是5頁,
請問這有方法解決嗎?