Imprimir memo en Impresora

Hola.

Necesito imprimir un pequeño ticket con Firemonkey sobre impresora por defecto en Windows.

No quiero usar ningún reporteador solo imprimir unas lineas de texto que voy a escribir sobre un Memo hacia la impresora determinada en Windows.

Alguien pudo o sabe como hacerlo ?

Hola.
Necesito imprimir un pequeño ticket con Firemonkey sobre impresora por defecto en Windows.
No quiero usar ningún reporteador solo imprimir unas lineas de texto que voy a escribir sobre un Memo hacia la impresora determinada en Windows.
 
Alguien pudo o sabe como hacerlo ?

 
Hola
 
Utiliza TPrinter.Canvas.
  

Printer.BeginDoc;
Printer.Canvas.TextOut(0,0,'Aquí el Texto');
Printer.EndDoc;

Edito: La unidad FMX.Printer ya no tiene la propiedad TextOut, investigaré cual es la correspondencia.
 
Pero podrías intentar mientras con:

var
  prn: TextFile;
begin
  AssignPrn(prn);
  Rewrite(Prn);
  Writeln(prn, 'texto a imprimir');
  CloseFile(prn);
end;

Saludos

Gracias egostar. Estoy probando con este codigo pero el texto sale muy pequeño y no puedo darle formato.

var
  MyRect: TRectF;
begin
// Image1.Bitmap.Clear($FFFFFF);
  // sets the rectangle where the text will be displayed
  MyRect := TRectF.Create(0, 0, 400, 570);
  // fills and draws the text in the specified rectangle area of the canvas
 
  Printer.BeginDoc;
  Printer.Canvas.Font.Style := [];
  Printer.Canvas.Font.Size := 12;
  Printer.Canvas.FillText(MyRect, 'Texto a Imprimir', false, 1,[], TTextAlign.Center, TTextAlign.Center);
  Printer.EndDoc;

 

Gracias egostar. Estoy probando con este codigo pero el texto sale muy pequeño y no puedo darle formato.

delphi

var
  MyRect: TRectF;
begin
// Image1.Bitmap.Clear($FFFFFF);
  // sets the rectangle where the text will be displayed
  MyRect := TRectF.Create(0, 0, 400, 570);
  // fills and draws the text in the specified rectangle area of the canvas
 
  Printer.BeginDoc;
  Printer.Canvas.Font.Style := [];
  Printer.Canvas.Font.Size := 12;
  Printer.Canvas.FillText(MyRect, 'Texto a Imprimir', false, 1,[], TTextAlign.Center, TTextAlign.Center);
  Printer.EndDoc;

En efecto, sale muy pequeña la letra, he estado jugando con algunas propiedades con efectos raros ya te diré si logro encontrar como ajustar la letra.

Saludos

Hola, en FireMonkey es necesario especificar que propiedades toma del estilo y cuales modificarás manualmente, de lo contrario siempre toma el estilo seleccionado.

Ejemplo, si se desea cambiar dinámicamente una propiedad de un label, se debe "Restar" el parámetro correspondiente.

   Label1.StyledSettings :=  [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style, TStyledSetting.FontColor, TStyledSetting.Other];  //así se asignarían todos las propiedades (Por defecto)
 
 
   Label1.StyledSettings :=  Label1.StyledSettings - [TStyledSetting.Size]; //Así se le dice que se quiere cambiar dinámicamente el tamaño de la letra