Fórum como usa o PRINT DIALOG #156680
29/04/2003
0
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
Curtir tópico
+ 0Posts
29/04/2003
4_olho
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 !
Gostei + 0
29/04/2003
Aroldo Zanela
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.
Gostei + 0
29/04/2003
Aroldo Zanela
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)