Fórum Impressao Direta - Bematech Não Fiscal #342008

Utilizo a seguinte rotina para imprimir em impressora 40 colunas Bematech não fiscal:

´
procedure TFSaidasProdutos.Imprime_Em_40_Colunas_Nao_Fiscal;
Var
F: TextFile;
begin
ClientDataSet1.Open;

Printer.Canvas.Font.Name := ´Courier New´;
Printer.Canvas.Font.Size := 9;
Printer.Orientation := poPortrait;

AssignPrn(F);
try
ReWrite(F);

Printer.Canvas.Font.Style := [fsBold];
Printer.Canvas.Font.Size := 11;

Write(F, ClientDataSet1Cidade.Value + ´-´ + ClientDataSet1UF.Value);
Write(F, #10);

Write(F, ´Nome ´ + ClientDataSet1Nome.Value);

Write(F, 10);
Write(F, ´----------------------------------------´);
Write(F, 10);

Write(F, ´Data: ´+ DateToStr(Date));
Write(F, 10);

Write(F, ´ ____________________________________´);
Write(F, 10);

Write(F, ´ ´ + DBLookupComboBox1.text);

ClientDataSet1.Close;
finally
System.closeFile(F);
end;
end;
´

Os dados estão sendo impressos corretamente. O problema é que ao final da impressão, a impressora solta uns 15 cm de fita em branco.
O que pode ser? Como resolver?

Obrigado