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:=;
     assignprn(prntext);
      Rewrite(prntext);
       writeln(prntext, '      总台打印机测试') ;
      CloseFile(prntext);