Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Como setar outra impressora em runtime?

junior103

Perguntado por junior103,

 Share

Pergunta

junior103

junior103

Postado
Postado

Bom dia. Em VCL com essa rotina seta outra impressora passando o nome como parâmetros. 

Printer.PrinterIndex := -1;
   For I := 0 to Printer.printers.Count-1 do begin
      If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin
         //Altera a classe printer padrão
         if ( Printer.PrinterIndex <> i ) then begin
            Printer.PrinterIndex := i;
         end;

         //Altera a classe printer do FastReport
         frxPrinters.FillPrinters;
         frxPrinters.PrinterIndex := frxPrinters.Printers.IndexOf(PrinterName);

         exit;
      end;
   End;

Preciso fazer o mesma rotina só que em FMX. Algum exemplo de como fazer isso?

Fico no aguardo.

Obrigado. 

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
junior103

junior103

Postado
  • Autor
Postado
15 minutos atrás, Jhonas disse:

exemplo:

http://www.activedelphi.com.br/forum/viewtopic.php?t=93909&sid=b3632f20e7de03c763bc0a3f0fa6cd50

abraço

Primeiramente obrigado pelo retorno.

Esse exemplo não serve pra mim.

Referente o fonte  

Printer.PrinterIndex := -1;
   For I := 0 to Printer.printers.Count-1 do begin
      If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin
         //Altera a classe printer padrão
         if ( Printer.PrinterIndex <> i ) then begin
            Printer.PrinterIndex := i;
         end;

         //Altera a classe printer do FastReport
         frxPrinters.FillPrinters;
         frxPrinters.PrinterIndex := frxPrinters.Printers.IndexOf(PrinterName);

         exit;
      end;
   End;

eu preciso que funcione em FMX(Firemonkey).

 

A ideia é o seguinte. Na minha maquina possui varias impressoras instalada(IMP1,IMP2 e IMP3), Nessa procedure passo nome de qual impressora desejo imprimir...

No VCL esse fonte acima funciona normal mas em FMX(Firemonkey) não funciona, preciso "migrar para FMX".

Você tem alguma solução?

Fico no aguardo.

Obrigado.

Link para o comentário
Compartilhar em outros sites
  • 0
Jhonas

Jhonas

Postado
Postado

alguns exemplos na net

https://www.google.com.br/search?site=&source=hp&q=frxPrinters.PrinterIndex+%3A%3D&o que=frxPrinters.PrinterIndex+%3A%3D&gs_l=psy-ab.3...1941.1941.0.2430.1.1.0.0.0.0.243.243.2-1.1.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..0.0.0.Ll_cD39zAs4

abraço

Link para o comentário
Compartilhar em outros sites
  • 0
junior103

junior103

Postado
  • Autor
Postado

Esse exemplo são uteis para quem precise trabalhar com fastReport. Mas no meu caso não deu certo ainda. 

Preciso Migrar de vcl para fmx o seguinte trecho 
Printer.PrinterIndex := -1;
   For I := 0 to Printer.printers.Count-1 do begin
      If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin
         //Altera a classe printer padrão
         if ( Printer.PrinterIndex <> i ) then begin
            Printer.PrinterIndex := i;
         end;

 

Link para o comentário
Compartilhar em outros sites
  • 0
junior103

junior103

Postado
  • Autor
Postado
2 horas atrás, Jhonas disse:

alguns exemplos na net

https://www.google.com.br/search?site=&source=hp&q=frxPrinters.PrinterIndex+%3A%3D&o que=frxPrinters.PrinterIndex+%3A%3D&gs_l=psy-ab.3...1941.1941.0.2430.1.1.0.0.0.0.243.243.2-1.1.0.foo%2Cnso-ehuqi%3D1%2Cnso-ehuui%3D1%2Cewh%3D0%2Cnso-mplt%3D2%2Cnso-enksa%3D0%2Cnso-enfk%3D1%2Cnso-usnt%3D1%2Cnso-qnt-npqp%3D0-1701%2Cnso-qnt-npdq%3D0-54%2Cnso-qnt-npt%3D0-1%2Cnso-qnt-ndc%3D300%2Ccspa-dspm-nm-mnp%3D0-05%2Ccspa-dspm-nm-mxp%3D0-125%2Cnso-unt-npqp%3D0-17%2Cnso-unt-npdq%3D0-54%2Cnso-unt-npt%3D0-0602%2Cnso-unt-ndc%3D300%2Ccspa-uipm-nm-mnp%3D0-007525%2Ccspa-uipm-nm-mxp%3D0-052675...0...1.1.64.psy-ab..0.0.0.Ll_cD39zAs4

abraço

Esse exemplo são uteis para quem precise trabalhar com fastReport. Mas no meu caso não deu certo ainda. 

Preciso Migrar de vcl para fmx o seguinte trecho 
Printer.PrinterIndex := -1;
   For I := 0 to Printer.printers.Count-1 do begin
      If LowerCase(Printer.Printers[i]) = Lowercase(PrinterName) then begin
         //Altera a classe printer padrão
         if ( Printer.PrinterIndex <> i ) then begin
            Printer.PrinterIndex := i;
         end;
Link para o comentário
Compartilhar em outros sites
  • 0
Jhonas

Jhonas

Postado
Postado

voce leu a nota ?

As a note: I'd remove the VCL prefix from your references; it means your code won't be available across platforms. If you just make sure that Printers is in your uses clause, you can use just Printers.Printer, and changing the target platform (VCL Win32/64, FMX 32/64, OSX) will adjust the uses clause for you based on the build configuration.

ou então veja no site da Embarcadero

http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Printer.Win.TPrinterWin.SetDefaultPrinter

abraço

Link para o comentário
Compartilhar em outros sites
  • 0
junior103

junior103

Postado
  • Autor
Postado
46 minutos atrás, Jhonas disse:

voce leu a nota ?

As a note: I'd remove the VCL prefix from your references; it means your code won't be available across platforms. If you just make sure that Printers is in your uses clause, you can use just Printers.Printer, and changing the target platform (VCL Win32/64, FMX 32/64, OSX) will adjust the uses clause for you based on the build configuration.

ou então veja no site da Embarcadero

http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Printer.Win.TPrinterWin.SetDefaultPrinter

abraço

Não estou conseguindo.

Estou usando:

Delphi berlin.

Projeto criado em "Multi-Device application".

(Se fosse em VCl os exemplo passado funciona normal, mas em Multi-Device application que estou tendo dificuldades).

Link para o comentário
Compartilhar em outros sites
  • 0
junior103

junior103

Postado
  • Autor
Postado

Link da solução

http://www.activedelphi.com.br/forum/viewtopic.php?p=488447#488447

5 horas atrás, Jhonas disse:

então tente outra abordagem

use o comando Winexec para mudar a impressora via windows 


RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n "NOME_IMPRESSORA"

abraço

Obrigado pela ajuda. A solução que desejava esta no link que postei.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...