如何按制一個textbox去自動print |
|
尚未結案
|
|
BorlandUser
中階會員   發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
|
|
BorlandUser
中階會員 發表：148 回覆：217 積分：73 註冊：2004-02-19 發送簡訊給我 |
|
|
Chance36
版主 發表：31 回覆：1033 積分：792 註冊：2002-12-31 發送簡訊給我 |
FileName := 'X:\xxxx\yourFile.txt';
ShellExecute(0, PChar('print'), PChar('notepad.exe'),PChar(FileName), nil, SW_HIDE); 我也是參考以下連結
http://delphi.ktop.com.tw/topic.php?topic_id=46638 或是簡單一點
CommandLine : String ;
begin
CommandLine := 'notepad.exe /p C:\Setup.ini';
WinExec(PChar(CommandLine ), SW_HIDE); 發表人 - chance36 於 2004/05/15 02:19:57
|
|
jest0024
高階會員 發表：11 回覆：310 積分：224 註冊：2002-11-24 發送簡訊給我 |
1.
procedure button1
var
f1,f2:TextFile;
s :String;
begin
AssignFile(f1,'c:\123.txt');
ReSet(f1);
AssignPrn(f2);
ReWrite(f2);
repeat
ReadLn(f1,s);
WriteLn(f2,s);
until s='';
CloseFile(f1);
CloseFile(f2);
end; 2.
procedure button2
var
List:TStrings;
i :Integer;
begin
List:=TStringList.Create;
List.LoadFromFile('c:\123.txt');
Printer.BeginDoc;
for i:=0 to List.Count-1 do
Printer.Canvas.TextOut(0,i*20,List[i]);
Printer.EndDoc;
List.Free;
end;
學而時習之不亦樂乎!
|
發表時間：2004-05-15 01:18:58
IP:203.218.xxx.xxx 未訂閱
系統時間：2024-06-27 1:26:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |