| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
junior103
Aprendiz
Registrado: Quarta-Feira, 1 de Julho de 2015
Mensagens: 204
|
 Enviada: Seg Jul 17, 2017 5:08 pm Assunto: [Resolvido]Como setar impressora padrão no FMX? |
 |
|
Boa tarde. Preciso setar a impressora padrão com FMX.Printer.
Como fazer isso?
Editado pela última vez por junior103 em Sex Jul 28, 2017 3:26 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
leo_cj
Colaborador
Registrado: Sábado, 26 de Março de 2011
Mensagens: 1335
|
|
| Voltar ao Topo |
|
|
junior103
Aprendiz
Registrado: Quarta-Feira, 1 de Julho de 2015
Mensagens: 204
|
| Enviada: Qui Jul 20, 2017 8:08 am Assunto: |
|
|
Obrigado... como que eu mando imprimir direto para impressora usando comandos FMX.Printer? |
|
| Voltar ao Topo |
|
|
leo_cj
Colaborador
Registrado: Sábado, 26 de Março de 2011
Mensagens: 1335
|
| Enviada: Qui Jul 20, 2017 8:51 am Assunto: |
|
|
utilize a função a baixo para obter o Index da impressora desejada:
| Código: | function GetLabelPrinterIndex(PrinterName: String): Integer;
var
i: Integer;
begin
for i := 0 to Printer.Printers.Count - 1 do
if AnsiContainsText(Printer.Printers[i], PrinterName) then
begin
Exit(i);
end;
Result := -1;
end; |
exemplo:
| Código: | | Printer.PrinterIndex := GetLabelPrinterIndex('HP LaserJet 1320'); |
|
|
| Voltar ao Topo |
|
|
junior103
Aprendiz
Registrado: Quarta-Feira, 1 de Julho de 2015
Mensagens: 204
|
| Enviada: Sex Jul 28, 2017 3:26 pm Assunto: |
|
|
| leo_cj escreveu: | utilize a função a baixo para obter o Index da impressora desejada:
| Código: | function GetLabelPrinterIndex(PrinterName: String): Integer;
var
i: Integer;
begin
for i := 0 to Printer.Printers.Count - 1 do
if AnsiContainsText(Printer.Printers[i], PrinterName) then
begin
Exit(i);
end;
Result := -1;
end; |
exemplo:
| Código: | | Printer.PrinterIndex := GetLabelPrinterIndex('HP LaserJet 1320'); |
|
Obrigado pelo retorno. 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;
|
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
