delphi选择打印机打印

   

1  printer.getprinter(mdevice, mdriver, mport, mhdmode);
2 
3     printer.setprinter(pchar(g_PRNzt), mdriver, mport, mhdmode);// 设置打印机，pchar(g_PRNzt)--打印机名称
4     printer.Canvas.Font.name:='宋体';
5     printer.Canvas.Font.Size:=10;
6     assignprn(prntext);
7      Rewrite(prntext);
8       writeln(prntext, '      总台打印机测试') ;
9      CloseFile(prntext);

 

posted @ 2015-02-03 16:37  realhopezj  阅读(1394)  评论(0)  编辑  收藏  举报