junior103 0 Posted July 27, 2017 Report Share Posted July 27, 2017 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. Quote Link to post Share on other sites
0 Jhonas 0 Posted July 27, 2017 Report Share Posted July 27, 2017 exemplo: http://www.devmedia.com.br/forum/pegar-tamanho-papel-impressora-padrão/274451 abraço Quote Link to post Share on other sites
0 junior103 0 Posted July 27, 2017 Author Report Share Posted July 27, 2017 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? Quote Link to post Share on other sites
0 Jhonas 0 Posted July 27, 2017 Report Share Posted July 27, 2017 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 ) Quote Link to post Share on other sites
0 junior103 0 Posted July 27, 2017 Author Report Share Posted July 27, 2017 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 Quote Link to post Share on other sites
0 Jhonas 0 Posted July 27, 2017 Report Share Posted July 27, 2017 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 Quote Link to post Share on other sites
Question
junior103 0
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.
Link to post
Share on other sites
5 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.