if ... end e imprimir..

21/11/2005

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&93;, 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

Respostas

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 Citar

21/11/2005

Massuda

[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]



Responder Citar