大家好,初次接觸列印報表有些問題希望大家幫幫我 在撰寫code時有些問題,code如下: void __fastcall TForm1::BitBtn10Click(TObject *Sender) { TPrinter *Prntr=Printer(); Prntr->BeginDoc(); Prntr->Canvas->Font->Size=12; Prntr->Canvas->Font->Name = "@新細明體" ; Prntr->Canvas->Brush->Color = clBlack; . . . Prntr->EndDoc(); delete Prntr ; } 我的問題是,第一次執行這個function用fineprint預覽是正常的 但第二次會出現address錯誤,錯在Prntr->BeginDoc();這一行 請問這是為什麼呢?

您好,可以試試TPrintDialog 。

TPrintDialog *PrinterPhoto = NULL;        try
    {
        PrinterPhoto = new TPrintDialog(NULL);            if(PrinterPhoto->Execute())
        {
                lc_pPrntr->BeginDoc();
                lc_pPrntr->Canvas->Draw(200,200,IMGview->Picture->Graphic);
                lc_pPrntr->EndDoc();
        }
    }
    __finally
    {
        if(NULL != PrinterPhoto)
        {
            delete PrinterPhoto;
            PrinterPhoto = NULL;
        }
    }

------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖VS東方不敗:D ------------------------------- 發表人 - anpino 於 2004/04/23 10:24:04

TPrintDialog 是叫出列印設定那個對話框 我試了之後還是一樣的問題 第二次會出現address violation錯誤在Prntr->BeginDoc();這一行~~~ 慘慘慘..

引言: TPrintDialog 是叫出列印設定那個對話框 我試了之後還是一樣的問題 第二次會出現address violation錯誤在Prntr->BeginDoc();這一行~~~ 慘慘慘..

咦? ... 我的一直按都沒出現錯誤耶... 可否麻煩您將BitBtn10Click裡的code貼出來, 我來幫你測測看。 ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖

kib57987, 您好 請試試這樣的方法是否可行 < class="code"> Printer()->BeginDoc(); Printer()->Canvas->Font->Size=12; Printer()->Canvas->Font->Name = "@新細明體" ; Printer()->Canvas->Brush->Color = clBlack; . . . Printer()->EndDoc(); ================================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之

謝謝tech_state,改成 Printer()->BeginDoc(); Printer()->Canvas->Font->Size=12; Printer()->Canvas->Font->Name = "@新細明體" ; Printer()->Canvas->Brush->Color = clBlack; . . . Printer()->EndDoc(); 是不會有address violation的問題,但是第二次預覽之後畫面會全黑...>< 我貼上code給大家看看,   for(i=0,k=0;iCount;i ){ if(i%8==0){ Printer()->BeginDoc(); //畫橫線 for(int i=0;iPageHeight;i =WidthOfCol) Printer()->Canvas->Rectangle(0,i,Printer()->PageHeight,Printer()->PageWidth); //畫中間直線 Printer()->Canvas->Rectangle(Printer()->PageWidth/2,0,Printer()->PageWidth/2 1,Printer()->PageHeight); // Printer()->Canvas->Font->Size=12; Printer()->Canvas->Font->Name = "@新細明體" ; Printer()->Canvas->Brush->Color = clBlack; } tmp=ListBox1->Items->Strings[i]; key=""; key = tmp.SubString(2,tmp.Pos("]")-2) ; SQL="SELECT name,post,section,road,alley,non,number,floor FROM member WHERE sn='" ; SQL =key ; SQL ="'" ; DM->Q1->Close(); DM->Q1->SQL->Text = SQL; try{ DM->Q1->Open(); } catch(...){ Application->MessageBoxA("無法初始化報表!","系統資訊",MB_OK MB_ICONINFORMATION); return; } name=DM->Q1->FieldByName("name")->AsString; post=DM->Q1->FieldByName("post")->AsString; address=DM->Q1->FieldByName("section")->AsString; address ="區"; address==DM->Q1->FieldByName("road")->AsString; address ="路"; address =DM->Q1->FieldByName("alley")->AsString; address ="巷"; address =DM->Q1->FieldByName("non")->AsString; address ="弄"; address =DM->Q1->FieldByName("number")->AsString; address ="號"; address =DM->Q1->FieldByName("floor")->AsString; address ="樓"; if(i%2==0){ //左 Printer()->Canvas->TextOutA(300,10 Printer()->Canvas->TextHeight(name) k*WidthOfCol,name) ; Printer()->Canvas->TextOutA(300,150 Printer()->Canvas->TextHeight(post) k*WidthOfCol,post) ; Printer()->Canvas->TextOutA(300,300 Printer()->Canvas->TextHeight(address) k*WidthOfCol,address) ; } else{ //右 Printer()->Canvas->TextOutA(1800 WidthOfCol,10 Printer()->Canvas->TextHeight(name) k*WidthOfCol,name) ; Printer()->Canvas->TextOutA(1800 WidthOfCol,150 Printer()->Canvas->TextHeight(post) k*WidthOfCol,post) ; Printer()->Canvas->TextOutA(1800 WidthOfCol,300 Printer()->Canvas->TextHeight(address) k*WidthOfCol,address) ; k ; } if(i%8==0&&i>0){ Printer()->EndDoc(); } } if(i<8){ Printer()->EndDoc(); }

你因該是有BeginDOC但沒EndDOC 還有去看一下TQuery的ParamByName的用法,除動態查詢外,沒人會像你這樣組合Sql Command的,沒效率又容易出錯

嗯,我會再測試看看, 謝謝你的指導

void __fastcall TForm1::BitBtn10Click(TObject *Sender) {  TPrinter *Prntr=Printer(); Prntr->BeginDoc(); Prntr->Canvas->Font->Size=12; Prntr->Canvas->Font->Name = "@新細明體" ; Prntr->Canvas->Brush->Color = clBlack; . . . Prntr->EndDoc(); delete Prntr ;<----這行拿掉吧.. }

. . . Prntr->EndDoc(); delete Prntr ; } 這個唯一的Global Printer被你砍了 再跑一次Printer() 也跑不出新的Printer 就掛了~