var
FPrn:System.text;
begin
AssignPrn(FPrn);
Rewrite(FPrn);
try
Printer.SetPrinter('Epson LQ-680C'); <-這邊我選的是LQ-680C可是從另一台LQ-300出來 = ="
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Name := '細明體';
Writeln(FPrn,memo1.Lines.Text);
finally
CloseFile(FPrn);
end;
end;

請高手指教~謝謝!

試用 Printer.PrinterIndex (-1 為使用預設printer)

也參考 Priner.Priners 為該機可用打印機之目錄

先在 string list 中找出你的打印機位置 index 再加入PrinterIndex 中

試用 Printer.PrinterIndex (-1 為使用預設printer)

也參考 Priner.Priners 為該機可用打印機之目錄

先在 string list 中找出你的打印機位置 index 再加入PrinterIndex 中

可否請您提供PrinterIndex用法範例?大恩大德，感激不盡!

var
FPrn:System.text;
begin
AssignPrn(FPrn);
Rewrite(FPrn);
try
// Printer.SetPrinter('Epson LQ-680C'); <-這邊我選的是LQ-680C可是從另一台LQ-300出來 = ="

Printer.PrinterIndex:=Printer.Printers.IndexOf('Epson LQ-680C');
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Name := '細明體';
Writeln(FPrn,memo1.Lines.Text);
finally
CloseFile(FPrn);
end;
end;