delphi (Resolvido) Tamanho papel da impressora

[junior103]

Boa tarde. Estou desenvolvendo em Delphi berlin firemonkey, preciso retornar o tamanho do papel disponível na impressora. Por exemplo A4.

Como fazer isso em Delphi FMX.Printer?

Fico no aguardo.

Obrigado. 

[Jhonas]

exemplo:

http://www.devmedia.com.br/forum/pegar-tamanho-papel-impressora-padrão/274451

abraço

[junior103]

6 minutos atrás, Jhonas disse:

exemplo:

http://www.devmedia.com.br/forum/pegar-tamanho-papel-impressora-padrão/274451

abraço

Boa tarde. Obrigado pelo retorno. Esse exemplo funciona no VCL e eu preciso que rode em FMX. Você teria alguma ideia como?

[Jhonas]

já experimentou pegar o tamanho da folha padrão na impressora ?  ( Width e Length )

ou antes da impressão setar o tamanho da folha ? ( independente do que estiver setado como padrão )

[junior103]

Em 27/07/2017 at 15:05, Jhonas disse:

já experimentou pegar o tamanho da folha padrão na impressora ?  ( Width e Length )

ou antes da impressão setar o tamanho da folha ? ( independente do que estiver setado como padrão )

Não, me manda um exemplo por favor.

 

Fiz o seguinte e funcionou.
Segue o código:

Código:

Printer.ActivePrinter.SelectDPI(1200, 1200); Printer.Title:= 'Documento do Sistema'; Printer.Canvas.Fill.Kind := TBrushKind.Solid; Printer.BeginDoc; DestRect := TRectF.Create(0, 0, Printer.PageWidth, Printer.PageHeight); Printer.Canvas.Font.Size:= 80; Printer.Canvas.FillText(DestRect,Lista.GetText,True,1,textFill,align,align); Printer.EndDoc; Resposta dada no Forum Activedelphi 28/07/2017

[Jhonas]

veja esse exemplo:

http://www.codenewsfast.com/cnf/article/0/permalink.art-ng2027q16792

http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Printing_from_a_FireMonkey_Application

veja outros exemplos no proprio site da embarcadero

http://docwiki.embarcadero.com/Libraries/Tokyo/en/FMX.Printer

http://docwiki.embarcadero.com/CodeExamples/Tokyo/e/index.php?title=Category:Delphi&pagefrom=InflateRect+(Delphi)#mw-pages

abraço