原帖：http://topic.csdn.net/u/20101220/21/fda21ce0-5dec-4eec-aae2-3b52714c4c84.html
（望斑竹把上面的200分還給我）
我自己來貼個答案吧，這里實在太冷清，我都2年沒用DELPHI了，現在偶爾用一下遇到問題，本想偷懶，看來還是自力更生，希望斑竹把這個分還給我。同時，網上類似例子也沒有，但愿以下代碼對后人有用：
procedure TPrintWord.PrintWords(sqlstr:string);
var
templateName: OleVariant;
newTemplate: OleVariant;
ItemIndex: OleVariant;
vSelection: wordSelection;
vBookMark: BookMark;
vTable: Table;
CopyTable:Table;
I : Integer;
j:integer;
rend:OleVariant;
myrange:range;
rs:tadoquery;
begin
CallFormCreate;
//構造列印模板檔案名全路徑
templateName := folderName + 'cld4.dot';
newTemplate := False;
try
wordApp.Connect();
except
MessageDlg('您的計算機上還未安裝Microsoft Office Word97或更高的版本！', mtError, [mbOK], 0);
Abort;
end;
//以指定的模板檔案創建新Word檔案
wordApp.Documents.AddOld(templateName, newTemplate);
vSelection := wordApp.Selection;
rs:=connect.opentable(sqlstr);
j:=1;
ItemIndex:=1;
WordDocument1.ConnectTo(WordApp.Documents.Item(ItemIndex));
// 先拷貝整個檔案模板
WordApp.ActiveDocument.Select ;
WordApp.Selection.Copy;
while not rs.eof do
begin
frm_wait.ProgressBar1.StepBy(j);
//取檔案中的第1張表
vTable := wordApp.ActiveDocument.Tables.Item((j-1)*11+1);
vTable.Cell(1, 2).Range.Text := rs.FieldByName('st_name').Text;
vTable.Cell(2, 2).Range.Text := rs.FieldByName('class_name').Text;
////取檔案中的第2張表
vTable := wordApp.ActiveDocument.Tables.Item((j-1)*11+2);
vTable.Cell(1, 1).Range.Text := datetostr(date);
if j<rs.RecordCount then
begin //將游標置于末端，然后粘貼
worddocument1.Range.InsertAfter(''+#13);
rend:=worddocument1.Range.End_-1;
myrange:=WordDocument1.Range(rend,rend);
myrange.Paste;
end;
rs.Next;
inc(j);
end;
wordApp.Visible := true;
wordApp.WindowState := 1;
//列印預覽
//wordApp.PrintPreview := CheckBox2.Checked;
//立即列印
// if CheckBox3.Checked then
// wordApp.PrintOutOld;
wordApp.Disconnect();
frm_wait.Close;
end;
procedure TPrintWord.CallFormCreate();
var
templateName: String;
fileStream: TResourceStream;
begin
//獲得應用程式所在的目錄
folderName := ExtractFilePath(Application.ExeName);
if not FileExists(folderName+'template.res') then
begin
MessageDlg('錯誤：找不到模板資源檔案template.res！', mtError, [mbOK], 0);
exit;
end;
//構造WORD列印模板的檔案名全路徑
templateName := folderName + 'cld4.dot';
//獲得資源檔案里的“處理單”列印模板
fileStream := TResourceStream.Create(hInstance, 'cld4', 'WORD');
if not FileExists(templateName) then
begin
//拆離檔案
fileStream.SaveToFile(templateName);
//釋放
fileStream.Free;
end;
end;
uj5u.com熱心網友回復：
能夠實作多模板,但是碰到了一個問題,會產生多余的空白頁?uj5u.com熱心網友回復：
解決了,呵呵,不過非常感激兄臺的指點!否則完不成這個東西!
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/151862.html
標籤：VCL組件開發及應用
上一篇：delphi8 最后編譯 出現如下 錯誤 debugger internal error PCN-667 求教！！
下一篇：三層程式在外網中使用怎樣實作?