Fórum como usa o PRINT DIALOG #156680

29/04/2003

0

Desculpem a forma que estou questionando..........

Mas tenho certeza de que não e complicado, porem nao estou conseguindo usar o Print Dialog.....

Se alguem puder me ajudar fico grato


Chaquater

Chaquater

Responder

Posts

29/04/2003

4_olho

Antes de mais nada, deveria reler as regras de conduta, onde, especificamente no ítem 7 temos :

7- Ao postar uma pergunta, seja educado e tente incluir todos os detalhes
que possam ser úteis para quem se dispuser a ajudá-lo com o problema.

Como nas 7 (isto mesmo) mensagens anteriores, você insiste em ser mal educado (menosprezo) e não fornece um mínimo de informações ... Só diz que quer imprimir um arquivo TXT.

Outra coisa, o componente PrintDialog pode ser usado para GERAR um arquivo de impressão e não imprimir um arquivo anteriormente gravado.

Se usou um gerador de relatórios, poderia tê-lo usado para a impressão direta. Você está usando impressora matricial, jato de tinta, etc ....? Que versão de Delphi está usando ?

Você leu o Help on-line ? Há um exemplo que :

This example uses a button, a Page Control, and a Print dialog box on a form. When the user clicks the button, the print dialog is displayed. The user can select any subset of the pages in the page control for printing. The selected pages are then printed.
To run this example successfully, you must add the Printers unit to the uses clause of your unit.

Como pode ler, se escolher TODAS as páginas, pode ter seu problema resolvido ....

Boa sorte !


Responder

Gostei + 0

29/04/2003

Aroldo Zanela

Colega,

Ainda não sei exatamente o que você está querendo. Mas, sem querer jogar lenha na fogueira, gostaria de reforçar o que o nosso colega postou sobre as regras do fórum, pois são críticas construtivas e o maior beneficiado por ser você mesmo.
Fiz uma exemplo que lê um arquivo texto e manda para a impressora sem nenhuma formatação elegante:

Coloque Printers na lista de uses de seu form:

procedure TForm1.Button1Click(Sender: TObject);
var Arquivo: TextFile;
LPT: TextFile;
    Linha: String;
begin
AssignFile(Arquivo,´c:\autoexec.bat´);
  Reset(Arquivo);

  AssignPrn(LPT);
  ReWrite(LPT);

  While not Eof(Arquivo) do
  begin
  ReadLn(Arquivo, Linha);
    WriteLn(LPT,Linha);
  end;

  CloseFile(Arquivo);
  CloseFile(LPT);
end;


Se não for isso, por favor, coloque um tópico que represente melhor o seu problema e nos dê mais detalhes para te ajudar. Afinal, frequentamos aqui para isto.

Boa sorte.


Responder

Gostei + 0

29/04/2003

Aroldo Zanela

Q. How do I print a text file as a report?
A. There are several ways to do this.
The qrprntr example project in the \quickrep\demos\qrprntr directory prints a text
file using the TQRPrintJob class.
You could use a single detailband and read the text file into a QRMemo,
just make sure to set PrintIfEmpty to true.
Or you could use the OnNeedData event and read the file line by line and set a
qrlabel.caption on the detail band to the current line.

Retirado da base de conhecimento da www.qusoft.com


Responder

Gostei + 0

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

Aceitar