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