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

[BlueSky]

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

[Soulsick]

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 🙂

[BlueSky]

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

[Soulsick]

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

[BlueSky]

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.