4 replies to this topic

[el-mono]

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 ?

 

 

 

 

 

[egostar]

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.
  

delphi

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:

 

delphi

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

Saludos

[el-mono]

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;

[egostar]

 

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

[genriquez]

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.

 

php

   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

Espero te sea de utilidad

 

 

Saludos.