Fórum centralizar impressão #153829

Tente da seguinte forma.

procedure TForm.ImprimirTextoCentralizado;
var
Px, Py: integer; // posicionamento do texto
MaxLargura: integer; // largura da área de impressão
AlturaIni: integer; // Localização do início do texto, margem superior
Txt: string; // texto a imprimir
Count: integer; // contador das linhas
begin
Printer.BeginDoc;
MaxLargura := Printer.PageWidth;
AlturaIni := 200; // este valor está em píxeis da impressora, mas há formas de converter para centímetros ou milímetros
for Count := 0 to Memo1.Lines.Count-1 do
begin
Txt := Mamo1.Lines[Count];
Printer.Canvas.TextOut((MaxLargura-Printer.Canvas.TextWidth(Txt)) div 2, AlturaIni);
inc(AlturaIni, Printer.Canvas.TextHight(Txt));
end;
Printer.EndDoc;
end;

Espero ter ajudado.

´Ninguém sabe tão pouco que não possa ensinar. Ninguém sabe tanto que não possa aprender.´