Jump to content

(este ja se resolveu) Imprimir em dev-pascal.....


BlueSky
 Share

Recommended Posts

Ola pessoal, preciso de uma ajudinha....

Já há mtos anos q nao pegava em pascal e agora resolvi faze-lo, tou a conseguir fazer umas coisitas bem simples, mas há uma coisa que não "consigo chegar lá, que é enviar para a impressora o conteudo de uma variavel.

Se bem me lembro era qq coisa assim do genero:

  Write(lst,(e aqui o nome da variavel))

Já tentei e nao consigo, agradeço uma resposta se possivel

Link to comment
Share on other sites

boas, não sei que parte de código tens escrito,  por isso vou colocar aqui um código que escrevi agora mesmo para ver se ainda sabia utilizar a impressora  😄

Program Printer;
Var stNome: string;
    lst: text;

Begin
   assign(lst,'LPT1');
   rewrite(lst);

   write ('Nome: ');
   readln(stNome);
   writeln ('Prima enter para imprimir...');
   readln;
   write(lst,stNome);
   writeln('Prima enter para sair...');
   readln;
end.

LPT1 é a impressora, ou melhor a porta da impressora, quanto a impressoras ligadas por USB não sei se este método funciona. Não sei se existe outra maneira melhor mas esta é a única que sei.

Se tiveres alguma dúvida avisa 🙂

Link to comment
Share on other sites

boas, não sei que parte de código tens escrito,  por isso vou colocar aqui um código que escrevi agora mesmo para ver se ainda sabia utilizar a impressora  😄

Program Printer;
Var stNome: string;
    lst: text;

Begin
  assign(lst,'LPT1');
  rewrite(lst);

  write ('Nome: ');
  readln(stNome);
  writeln ('Prima enter para imprimir...');
  readln;
  write(lst,stNome);
  writeln('Prima enter para sair...');
  readln;
end.

LPT1 é a impressora, ou melhor a porta da impressora, quanto a impressoras ligadas por USB não sei se este método funciona. Não sei se existe outra maneira melhor mas esta é a única que sei.

Se tiveres alguma dúvida avisa 😛

antes de mais obrigado pela resposta, experimentei o codigo que tu aqui deixaste e nem com uma impressora emprestada para ligar á porta lpt1 consegui imprimir, nem com o dev-pascal ou o free pascal.

Be good

Link to comment
Share on other sites

ora bem, com esse código a minha impressora não imprime automaticamente depois do "Enter", tenho que carregar no botão que a impressora tem para imprimir :x

Link to comment
Share on other sites

e pronto, depois de ler a tua resposta, lembrei-me q efectivamente a luzinha da dita impressora ficava a piscar, ora fui buscar outro cabo novo e......... voila, fez-se luz (a piscar) e não é q a impressao saiu perfeita?

Obrigado soulsick.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.