Testei na EscLabel, não imprimiu.
Com a linguagem TSPL selecionada nas configurações da impressora, fiz o seguinte código e imprimiu.
procedure TForm1.EnviarComandoTSPL(const NomeImpressora, Comando: string);
var
F: TextFile;
begin
if not ImpressoraDisponivel(NomeImpressora) then
begin
ShowMessage('Erro: Impressora não disponível!');
Exit;
end;
try
AssignFile(F, NomeImpressora);
Rewrite(F);
WriteLn(F, Comando);
CloseFile(F);
except
on E: Exception do
ShowMessage('Erro ao enviar comando para a impressora: ' + E.Message);
end;
end;
EnviarComandoTSPL('\\localhost\label',
'CLS' + #13#10 +
'SIZE 40 mm, 30 mm' + #13#10 +
'GAP 2 mm' + #13#10 +
'TEXT 100,100,"3",0,1,1,"AQUI VAI UM TEXTO QUALQUER"' + #13#10 +
'PRINT 1,1');