Ir para o conteúdo
BHAMF

Como imprimir algo em Pascal

Mensagens Recomendadas

BHAMF    0
BHAMF

Observação: Variáveis não declaradas nesta procedures estão declaradas em outra parte do programa.

 

Estou com uma dúvida sobre como imprimir algo em Pascal, utilizei o seguinte código para um programa que estou fazendo mas a impressora nem deu sinal de que iria imprimir, o código compilou sem nenhum erro. A impressora utilizada era EPSON e era USB.

código usado: 

 O objetivo era imprimira  dados de um cliente que iria fazer uma viagem.

procedure impressaoDeDados;
var
 R : string;
begin
 clrscr;
 gotoxy(2,2);
 write('Tem certeza que deseja imprimir as informa'#135#228'es do cliente ', cliente.escolha, '?'); // Cliente.escolha é a variável que diz o número do cliente.
 writeln;
 write('S/N: ');
 readln(R);

 if (R = 'S') or (R = 's') or (R = 'SIM') or (R = 'Sim') or (R = 'sim') then begin
  writeln;
  write('Imprimindo os dados...'); // Só aparecia a mensagem até aqui, o programa não fechava nem nada.
  writeln;
  PRINTCENTER('Impress'#198'o de informa'#135#228'es do cliente | GDV');
  write(LST, 'Dados do cliente', cliente.escolha, ' da se'#135#198'o/ viagem ', identificacao_ADD_DEL2, '...');
  writeln(LST);
  write(LST, 'Nome do cliente: ', cliente.nome);
  writeln(LST);
  write(LST, 'Telefone do cliente: ', cliente.tel);
  writeln(LST);
  write(LST, 'Data de anivers'#160'rio do cliente: ', cliente.dataAniv);
  writeln(LST);
  write(LST, 'Identidade/CPF do cliente: ', cliente.Ident);
  writeln(LST);
  write(LST, 'Data de ida do cliente: ', cliente.datIda);
  writeln(LST);
  write(LST, 'Data de volta do cliente: ', cliente.DatVLT);
  writeln(LST);
  write(LST, 'Tipo de pagamento efetuado pelo cliente: ', cliente.PagType);
  writeln(LST);
  write(LST, 'Valor do pagamento efetuado pelo cliente: ', cliente.PagVal);
  writeln(LST);
  write(LST, 'Finalizado. GDV ( Gerenciamento de Viagens ).');
  write(LST, #12);
  writeln;
  write('Finalizado. Tecle ENTER.');
  readln;
  clrscr;
  tela_inicial;
 end
  else begin
   if (R = 'N') or (R = 'n') or (R = 'NAO') or (R = 'Nao') or (R = 'nao') or (R = 'N'#199'O') or (R = 'N'#198'o') or (R = 'n'#198'o') then begin

   end
    else begin

    end;
  end;
end;
procedure PRINTCENTER (MENSAGEM : string);
var
 posicao : BYTE;
begin
 posicao := 40 + length(MENSAGEM) div 2;
 writeln(LST, MENSAGEM:posicao);
end;z

Espero uma ajuda, obrigado desde já! 

Brasil, 21:07 | 23/09/2017 (Horário de Brasília) 

Editado por BHAMF
Erro de escrita.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
BHAMF    0
BHAMF

Pelo que vi no livro a variável LST, envia o que se deseja ser impresso para a impressora, e o código **Write(t, #12);** dá o comando para a impressora liberar o papel, mas também estava no livro que em algumas impressoras mais modernas isto não funciona, pois este código não é para impressoras USB, só desejo saber como enviar a informação de impressão para uma impressora USB, já que todas as impressoras hoje em dia, as mais famosas são USB, Agradeço desde já!

Só pra esclarecer melhor a dúvida pois faz mais de 3 dias que postei este tópico, tenho certeza de que não sou só eu que possuo esta dúvida, pois procurei em vários sites pela internet e não achei nada para solucionar minha dúvida, e, os que eu achei, dizia a mesma coisa sobre impressão, ou seja, sobre a variável LST. Espero ajuda, obrigado a todos vocês do Portugal a Programar :)

Brasil, 22:23 29/09/2017 (Horário de Brasília)

Editado por BHAMF

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
josehenrique    1
josehenrique

Olá ainda está com o problema ?

É obrigatório você utilizar impressão em modo "DOS" ou poderia ser impresso utilizando a Dll da impressora ?

Talvez esse exemplo possa lhe ajudar !

https://mega.nz/#!89RxVJ6T

Caso não te atenda, fica uma dica também, compartilhe a impressora e use o compartilhamento para impressão.

Abraços!

 

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
BHAMF    0
BHAMF

Sim ainda estou com problema. O que é "Dll"? Obrigado pelo link, se tiver sucesso mandarei uma resposta.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
BHAMF    0
BHAMF
Em 06/10/2017 às 16:49, josehenrique disse:

Olá ainda está com o problema ?

É obrigatório você utilizar impressão em modo "DOS" ou poderia ser impresso utilizando a Dll da impressora ?

Talvez esse exemplo possa lhe ajudar !

https://mega.nz/#!89RxVJ6T

Caso não te atenda, fica uma dica também, compartilhe a impressora e use o compartilhamento para impressão.

Abraços!

 

O link está sem a chave de decodificação!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
josehenrique    1
josehenrique
Em 07/10/2017 às 18:09, BHAMF disse:

O link está sem a chave de decodificação!

Opa está aqui a chave , perdão.

 

!SEdK8gvoh_ZUpXgWBEBjVNO92fYeXcODZhW_ax7L7lg

 

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
josehenrique    1
josehenrique
Em 07/10/2017 às 18:09, BHAMF disse:

O link está sem a chave de decodificação!

Amanhã é feriado aqui no Brasil, se quiser ajuda me fale.

meu whatsapp 

+55 12 988121012

Abraços.

 

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
BHAMF    0
BHAMF

Amigo! Obrigado pela resposta, mas o seu código está em Delphi, e eu não entendo muito bem Delphi pois ainda estou aprendendo o mesmo, mas, pelo o que eu entendi, o código para imprimir algo é #10, certo? Obrigado pela resposta, se possível, mande o código de impressão em Pascal, Turbo Pascal se preferir. Obrigado desde já! Tentarei falar pelo Whatsapp.

23:59 11/10/2017 (Horáriode Brasília) Brasil.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade