請問各位先進: 使用 TRichEdit->Print(filename); 時 如何設定印出來的行距,字距....

erutluv你好：    初見這個問題並沒有做過，思索了很多方向< >： <>><><---> 應該是不行 <>><><---> 結果>><><---目前會的方法 也就是自已寫一個>>這個> 以下是測試程式，<>注意此程式雖可以改變印出時的字矩、行矩，卻無法依照>這點是目前我不會的，請>< >! < class="code"> In Unit1.h ~~ public: void __fastcall VirtualREPrint(TRichEdit* WorkingRE,int LineDstnc,int WordDstnc); ~~ In Unit1.cpp ~~ #include ~~ //--------------------------------------------------------------------------- void __fastcall TForm1::VirtualREPrint(TRichEdit* WorkingRE,int LineDstnc,int WordDstnc) { // 在Form上測試列印成果(大致) if (IfTestPrint->Checked) { HDC dc=GetDC(Form1->Handle); SelectObject(dc,WorkingRE->Font->Handle); //設定字形 SetTextCharacterExtra(dc,WordDstnc); //設定字矩 for (int line=0;lineLines->Count;line++) { TextOut(dc, 100, (LineDstnc+Printer()->Canvas->TextHeight(WorkingRE->Text))*(line+0), WorkingRE->Lines->Strings[line].c_str(), WorkingRE->Lines->Strings[line].Length()); } return; } // 直接印至印表機 Printer()->BeginDoc(); //SelectObject(Printer()->Handle,WorkingRE->Font->Handle); <---就是這行失敗處 SetTextCharacterExtra(Printer()->Handle,WordDstnc); for (int line=0;lineLines->Count;line++) { TextOut(Printer()->Handle, 100, (LineDstnc+Printer()->Canvas->TextHeight(WorkingRE->Text))*(line+0), WorkingRE->Lines->Strings[line].c_str(), WorkingRE->Lines->Strings[line].Length()); } Printer()->EndDoc(); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { VirtualREPrint(RichEdit1,CSpinEdit1->Value,CSpinEdit2->Value); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { RichEdit1->Print("這裏給一個Printing job的title!"); } //--------------------------------------------------------------------------- 嗯，大致是這樣，問題已轉成報表輸出列印了，到報表列印的討論區應該可以問到更多的高手! 發表人 -