Impression avec Windows 8

Version imprimable

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:

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!

25/03/2015, 22h40
Andnotor

Il y a un BeginDoc et un EndDoc mais pas de dessin sur le canevas de l'imprimante :koi:
Peu importe l'OS, tu n'auras toujours qu'une page blanche...
25/03/2015, 23h03
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.

Pourquoi pas simplement :

Code:

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;

;)

26/03/2015, 09h41
SergioMaster

Bonjour,

évitez les fôtes ! ;)

Code:

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

c'est pas grand chose mais ça choque moins