AssignPRN和Writeln打印如何设置字体

Question

AssignPRN(f);
    Rewrite(f);
    Writeln(f, '');
    Writeln(f, '    欢迎光临');
    Writeln(f, '');
    Writeln(f, '    TEL:');
    Writeln(f, '    ==================================');
    Writeln(f, '    品名      数量      单价     金额');
...
    Writeln(f, '');
    System.CloseFile(f);  //切纸如何设置字体？最好是能设置每行的字体。

Answer 1

printer.canvas.font.name:='Courier New';
printer.canvas.font.syte :=[fsBold] ;
printer.canvas.font.size := 10 ;
printer.canvas.font.poxelsperinch := GetDeviceCaps(printer.canvas.handle,LOGPIXELSY);