Fala galera de Delphi, tudo beleza?
Em configurações de sistemas é muito comum ser necessário informar
uma impressora padrão para automatizar alguma tarefa.
Certo. Podemos informar manualmente o nome do compartilhamento da impressora
ou podemos criar uma forma de o próprio usuário poder escolher facilmente.
Utilizando o TPrinterDialog, o sistema fará uso da própria busca do Windows!
Vamos ao código!
Vou colocar toda a unit para facilitar o entendimento.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm2 = class(TForm) Button1: TButton; PrintDialog1: TPrintDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.dfm} uses { Muito importante declarar esta unit } Vcl.Printers; procedure TForm2.Button1Click(Sender: TObject); begin if PrintDialog1.Execute then begin // Exibindo a impressora selecionada!!! ShowMessage( Printer.Printers[ Printer.PrinterIndex ]); end; end; end. |
Assim podemos ver no clique de um botão a impressora seleciona, facilitando
muito para o usuário final.
Por hoje é isso, forte abraço e até o próximo post!
Dúvidas ou sugestões? Deixe o seu comentário!
