Fórum como obter total de páginas Impressas na Impressora? #421613

Boa noite Carlos,

Para trabalhar com informações da impressora você deverá adicionar no uses: Printers, depois disso terá acesso a classe TPrint.

Veja o exemplo abaixo:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Printers, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Impressora: TPrinter;
begin
Impressora.Title := Nome do relatório que está sendo impresso; //Enviar nome do relatorio impresso ao spool
end;

end.


Para ver mais métodos basta pressionar Ctrl+Espace (Acionar o Code Complete do Delphi) e você
verá todos os métodos dessa classe, veja o que vai atendê-lo e bons códigos.

Imagino que o que procurava está no post abaixo:

https://www.devmedia.com.br/gerenciar-administrar-fila-de-impressao/4499

Link exemplo para download:

https://www.devmedia.com.br/download/down.asp?id=4499&cb=

Segue mais algumas dicas de como trabalhar com impressão no Delphi

http://www.tecnobyte.com.br/dica3.html

conseguiu o que vc queria carlos, tambem to procurando essa função?