Array
(
)

if ... end e imprimir..

Gigatel
   - 21 nov 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...
#Código


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+


Marcio.theis
   - 21 nov 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;


Massuda
   - 21 nov 2005


Citação:
Tópico bloqueado por Massuda

Tópico duplicado.
Por favor continuem a discussão no tópico original:
http://forum.clubedelphi.net/viewtopic.php?t=70579