Discussion :

[Dany3]

Bonjour à tous,

J'ai un logiciel sous delphi 2010 qui imprime l'intérieur d'une fenêtre qui apparaît à l'écran. Cela fonctionne sans problème sauf sur Windows 8, car l'impression me donne une feuille blanche, donc rien n'est imprimé.

Voici mon code qui est sur un bouton sur la fenêtre à imprimer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TFormImpression.ColorBtnImprimerClick(Sender: TObject);
var RDest:Trect;
begin
  if FormImpression.RadioButtonUneCarte.Checked=true then
    Printer.Orientation:=poPortrait
  else
    Printer.Orientation:=poLandScape;
  Printer.BeginDoc;
    if FormImpression.RadioButtonUneCarte.Checked=true then
      RDest:=rect(10,10,Printers.Printer.PageWidth-10,Printers.Printer.PageHeight-10)
    else
      RDest:=rect(10,10,(Printers.Printer.PageWidth div 2)-10,Printers.Printer.PageHeight-10);
  Printer.EndDoc;
  MessageBox(Handle, pchar('Envoi à l''imprimante terminer!') , pchar('Information!'), 64);
end;

Si vous avez une solution ou pouvez m'aider à comprendre, je suis preneur.

Merci!

[Andnotor]

Il y a un BeginDoc et un EndDoc mais pas de dessin sur le canevas de l'imprimante
Peu importe l'OS, tu n'auras toujours qu'une page blanche...

[Dany3]

Merci pour votre réponse rapide.

C'est bien vrai que n'importe quel OS aura le même problème, c'est moi qui ne suis pas réveillé.

Désolé, je vais corriger tout de suite.

[Andnotor]

Pourquoi pas simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TFormImpression.ColorBtnImprimerClick(Sender: TObject);
begin
  if RadioButtonUneCarte.Checked 
  then Printer.Orientation := poPortrait
  else Printer.Orientation := poLandScape;
 
  Print;
 
  MessageBox(Handle, 'Envoi à l''imprimante terminer!' , 'Information!', MB_ICONASTERISK);
end;

[SergioMaster]

Bonjour,

évitez les fôtes !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MessageBox(Handle, 'Envoi à l''imprimante terminé!' , 'Information!', MB_ICONASTERISK);

c'est pas grand chose mais ça choque moins