if ... end e imprimir..

21/11/2005

0

oi tudo na paz?...estou com um problema ´meu programa faz umas perguntas para o usuário más se eu disser não na primeira pergunta ele e cancela as demais...
    if MessageDlg(´Deseja imprimir promissórias ?´,
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  QuickRep3.Print;
  if Application.MessageBox(´Imprimir documento de saida ?´ , ´Imprimir´, MB_ICONQUESTION + MB_YESNO) = IDYES then
  QuickRep1.Print;
  end;


acho que algo com estes If´s da vida..flw... galera t+


Gigatel

Gigatel

Responder

Posts

21/11/2005

Marcio.theis

Tira dentro do bloco Begin...end;

if MessageDlg(´Deseja imprimir promissórias ?´, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
QuickRep3.Print;
if Application.MessageBox(´Imprimir documento de saida ?´ , ´Imprimir´, MB_ICONQUESTION + MB_YESNO) = IDYES then
QuickRep1.Print;


Responder

21/11/2005

Massuda

[quote:01a8443646=´Moderação´][color=red:01a8443646]Tópico bloqueado por Massuda

[b:01a8443646]Tópico duplicado.[/b:01a8443646]
Por favor continuem a discussão no tópico original:
http://forum.clubedelphi.net/viewtopic.php?t=70579[/color:01a8443646][/quote:01a8443646]


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar