Question

delphi打印的时候怎样调整字体大小

procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
Str:string;
Begin
try
Str:=’ 欢迎使用票据打印机!’+Chr(10);
AssignFile(F, 'LPT1');
Rewrite(F);
Write(F, Str);
CloseFile(F);
Except
Messagedlg('数据发送失败！',mterror,[mbok],0);
End;
end;

可以打印但是不能调整字体大小，请问怎么解决

Answer 1

分太诱人了，写一个吧......
uses comobj;

var word,document:olevariant;

begin

word:=createoleobject('word.application');
document:=word.documents;
document.open('c:\1.doc');
word.ActiveDocument.pagesetup.topmargin:=111; //上边距topmargin 下bottommargin 左leftmargin 右 right.....
word.selection.HomeKey(wdline,1); //开始选择范围
word.Selection.MoveDown(wdline,3);
word.selection.endkey(wdline,wdExtend );
word.Selection.Font.Size:=1111; //结束范围设置,第四行文字改变。
word.ActiveDocument.saveas('c:\2.doc');
document.close;
word.quit;
word:=unassigned;

end; 补充一下，需要用到控件server中的 wordapplication,通过d7测试！

追问

谢谢，明天上班试一下，ok的话再加分😏

看了下，你这里的话似乎没有打印到指定打印机的，还有能不能在我原先的代码上加上一个调整字号的代码？我这个需要逐行打印的，麻烦你了