Fórum Imprimindo com canvas #203997

:?:
Como faço para imprimir no canvas, algumas linhas
Ejetar a página
Exibir uma menssagem: ShowMessage(´Vire a página para imprimir o verso´)
e continuar a impressão...

ex:

With printer do
Begin
BeginDoc;
Title:=´FICHA DE CADASTRO´;
Canvas.Font.Name:=´Courier New´;
canvas.font.style:=[fsBold]; {tipos de fonte: fsBold, fsItalic, fsUnderline, fsStrikeOut);}
Canvas.Font.Size:=12;
//Grossura:=Canvas.pen.Width;
//Canvas.Pen.Width:=Grossura;
Canvas.TextOut(100,620,Format(´¬-36s´,[´TEXTO DA FRENTE´]));

NewPage;
ShowMessage(´Vire a página para imprimir o verso´);
Canvas.TextOut(100,620,Format(´¬-36s´,[´TEXTO DO VERSO´]));
EndDoc;
End;

já tentei, mas quando exibo a menssagem a impressão não inicia ...
eu queria que a menssagem fosse exibida após a página ser ejetada
para que eu podesse virar o papel e clica em OK, para continuar

Desde já agradeço a ajuda
[]´Guialberto