很久以前在板板有提問過這樣的問題~因為向一般應用在像是MonitorDevice需要24小時Report To Printer 而BCB本身提供的元件無法達逐行列印的需求(或許有可能我找的方法不對) 所以找了相關資料及實作一個簡單的範例給大家參考~    <<我們所預設假想環境及要求的功能:>> 1.可以假裝想像被監控端回傳字串訊息到程式內準備輸出至PRINTER. 2.訊息產生我們輸出至印表機只單印一行而不換頁,下次訊息產生就可以繼續列印. 3.所以結論是我們只知道每個字串訊息大概是多長 並不知道他會印多少頁 多少行.因為是"監控狀態". 4.列印過程不須顯示任何視窗 只求快就好<因為被控端可能短時間發生很多筆訊息> 5.自動取得印表機型號    //我有試過//////  OS: WIN98/ WIN2000/WIN XP  PRINTER:點陣EPSON LQ2080 / 噴墨EPSON color460 (當然雷射我也試過只是會強制換頁呵呵~一行一張)

附加檔案：28545_LbyLprint.zip

不知道誰可以幫忙提供Delphi版本ㄋ??THANKS..< >< >

引言: 不知道誰可以幫忙提供Delphi版本ㄋ??THANKS..< >< >

程式仔細看其實還不算難 也是call API所以對DELPHI熟的翻過去應該不是大問題 呵呵只是我對DELPHI不熟

請問可否列印中文?

well....< >抱歉中文我沒試過耶~不過原理應該差不多吧< >我猜的拉~可能要找找中文打印的相關資料再套進去試 最近忙著弄linux的東西>"< 會比較忙..有空再試試囉..或是你有找到比較好的方法也不吝分享呦~~< >< >

感謝大大...現在正在做監控案子...剛好也有這個需求...

提供另一個簡單的方法:    

#include 
#include     void PrintLine(char *lc)
{
    ofstream ofs("PRN");        ofs << lc << endl;
}  

不過不能印中文字, 我試過dotdot的方法也不能列印中文(應該是文字模式列印, 而不是圖形模式的關係), 不知哪位前輩可以解決這個問題? 還是非買支援中文字型的點陣印表機才可解決? 可否賜教...

procedure TForm1.Button1Click(Sender: TObject); Var st:String; szPrinterName,szBuffer:PAnsiChar; iLen:Integer; dwWritten:DWORD; // 資料量多少 hPrinter:THandle; Info: DOC_INFO_1; szInfo:Integer; begin st:='012345678901234567890AAAAAAAAAAAA' Chr(13) Chr(10);//0x0a換行(carriage) szPrinterName:=Pchar(edit1.Text); //印表機名稱 szBuffer:=Pchar(ST); iLen:= strlen(szBuffer);// 要列印傳送資料的長度 IF OpenPrinter(szPrinterName, hPrinter, nil) then begin szInfo:=sizeof(Info); Info. pDocName:= 'The Test Print'; Info.pOutputFile:= nil; Info.pDatatype:= 'RAW'; end else begin Showmessage('Not Open Printer!'); exit; end; // 開啟列印 StartDocPrinter(hPrinter, 1, @Info); StartPagePrinter(hPrinter); // 開啟列印頁傳入指定的列印行HANDLE if Not WritePrinter(hPrinter, szBuffer, iLen, dwWritten) then begin ShowMessage('列印錯誤');// 寫入錯誤 end; EndPagePrinter(hPrinter);//完成結束列印頁 if Not EndDocPrinter(hPrinter) then ShowMessage('關閉錯誤'); ClosePrinter(hPrinter);//關閉列印行程 Memo1.Lines.Add('012345678901234567890AAAAAAAAAAAA'); end; 山即是我 我即是山

------
學了這麼久還是沒進步