delphi选择打印机打印

    printer.getprinter(mdevice, mdriver, mport, mhdmode);

    printer.setprinter(pchar(g_PRNzt), mdriver, mport, mhdmode);// 设置打印机，pchar(g_PRNzt)--打印机名称
    printer.Canvas.Font.name:=‘宋体‘;
    printer.Canvas.Font.Size:=10;
    assignprn(prntext);
     Rewrite(prntext);
      writeln(prntext, ‘      总台打印机测试‘) ;
     CloseFile(prntext);

delphi选择打印机打印

原文：http://www.cnblogs.com/realhope/p/4270355.html