if ... end e imprimir..

Delphi

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

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

21/11/2005

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;


GOSTEI 0
Massuda

Massuda

21/11/2005

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


GOSTEI 0
POSTAR