/****设置打印机***
procedure gProSetPrnIndex(pName:string);
begin
if printer.Printers.IndexOfName(pName) >=0 then
printer.PrinterIndex:= printer.Printers.IndexOfName(pName);
end;
precedure proPrintTwoPageTest;
begin
gProSetPrnIndex('第一台打印机');
printer.begindoc;
printer.Canvas.TextOut(20,60,'编号:') ;
printer.endDoc;