各位前輩：
我用 下列方式：已經可以指定要列印的印表機

[code delphi]
var
i : integer;
begin
i := Printer.Printers.IndexOf('標籤貼紙印表機');
if i >= 0 then Printer.PrinterIndex := i;

Printer.BeginDoc;

Printer.Canvas.Font.Size:=12;
Printer.Canvas.Textout(150,10,'123' ' ');
Printer.Canvas.Textout(210,09,'ABCDEFG');
Printer.Canvas.Textout(500,09,'$85');

Printer.Canvas.Font.Size:=6;
Printer.Canvas.Textout(130,85,'HGFDS/MNMNMNM');

Printer.Canvas.Font.Size:=2;
Printer.Canvas.Textout(0,150,'');

Printer.Canvas.Font.Size:=4;
Printer.Canvas.Textout(0,0,'----------------------------------------------------------------------');

Printer.EndDoc;
[/code]

也可以列印
但是列印後都會多印很多空白導致要撕紙時位置不對
1.要如何指定列印時的紙張大小 例如寬 6公分 高是4公分 (優先解決方案)
或是
2.我在印表機已經設定好紙張大小 名稱為 6x4 然後用程式 指定印應表機使用該紙張

感謝各位前輩的指導

Delphi的TPrinter的Canvas會可能超過印表機的PaoerSettings
如果你不會調
可以試試直接丟POS command給Printer Port
(但要先找到那台印表機的手冊)

例如
AssignFile(port, 'COM1'); // ex: LPT1、COM1、USB1
Rewrite(port);
Writeln(port, buffer); //列印文字..
Write(port,#29#86#66#0); //撕紙
CloseFile(port);

感謝前輩的指導
我會去試試

感激不盡