Fórum Como eu faço para imprimir os dados em um listbox #215501

19/02/2004

0

Delphi

Alguém saberia me dizer como eu faço para imprimir os dados em um listbox...

[color=red:3cf7d3803c][b:3cf7d3803c][color=red]Título editado pelo Moderador (AZ) - Removido: ´Alguém saberia?´[/color:3cf7d3803c][/b:3cf7d3803c][/color]


Danielvbhp

Danielvbhp

Responder

Post mais votado

19/02/2004

Insira as variaveis abaixo e um printdialog
var
PrintFile: Textfile;
I: Integer;

begin
 if PrintDialog1.Execute then 
 begin
  AssignPrn(PrintFile);// associa o arqvuio PrintFile para Impressora ao invés de gravar no HD
  Rewrite(PrintFile);// Inicializa o arquivom com valor 0;
  Printer.Canvas.Font:=ListBox.Font;
  For I:=0 to Listbox.Items count -1 do
  Writeln(PrintFile, Listbox1.Items[I]);
  System.CloseFile(PrintFile);
  end;

Tente e me retorne se deu certo
Valeu
end;


Dbergkamps

Dbergkamps
Responder

Gostei + 1

Mais Posts

20/02/2004

Danielvbhp

Cara esta dando erro nestes comandos que voce me passou...
O que eu faço para IMPRIMIR OS DADOS DO LISTBOX...

[Error] Unit8.pas(85): Undeclared identifier: ´AssignPrn´


Responder

Gostei + 0

20/02/2004

Danielvbhp

Olá vou explicar direito o que estou fazendo para que voces entendam a minha duvida....


o codigo abaixo bega a linha selecionado do DBGrid1 e coloca no ListBox1.
Listbox1.Items.Add(FormatFloat(´00´,Query1.fieldbyname(´Cod´).AsInteger)+´ ´+Query1.fieldbyname(´Nome´).asstring);//esta parte copia do banco de dados para o listbox


E eu criei um botão para impressão do conteudo listbox, pegando o cod e o nome para imprimir por exemplo umas etiquetas que contem os seguintes campos...

COd, Nome , Endereço, Bairro, Cep, Cidade, Estado, Telefone, Rg.

o que eu tenho que fazer para isso funcionar...??????


Responder

Gostei + 0

20/02/2004

Imoreira

Para utilizar a função assingnPrn(), inclua a unit printers na sessão uses.


Responder

Gostei + 0

26/04/2015

Danilo Cavalcante

Insira as variaveis abaixo e um printdialog
[code:1:debe920519]var
PrintFile: Textfile;
I: Integer;

begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintFile);// associa o arqvuio PrintFile para Impressora ao invés de gravar no HD
Rewrite(PrintFile);// Inicializa o arquivom com valor 0;
Printer.Canvas.Font:=ListBox.Font;
For I:=0 to Listbox.Items count -1 do
Writeln(PrintFile, Listbox1.Items[I&93;);
System.CloseFile(PrintFile);
end;[/code:1:debe920519]
Tente e me retorne se deu certo
Valeu
end;




Olá Dbergkamps, venho lhe consertar 
For I:=0 to Listbox.Items count -1 do
nessa linha do seu código, você errou, o certo seria 
For I:=0 to Listbox.Items.count -1 do

Um ponto errado, faz tudo ficar errado! Desculpe se eu fui grosso ;)
Responder

Gostei + 1

18/08/2015

Neilson

Galera, estava tentando fazer a impressão do listbox e sempre dava erro, analisando o código de vocês deu certo aqui, mesmo "bicando" a dúvida do colega, resolveu a minha, valeu.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar