delphi选择打印机打印

2023-12-31 13:55:40

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);