Bonjour à toutes et tous.
Le code très simple ci-dessous imprime sans problème avec les couples :
- Windows XP et HP Laserjet 4L
- Windows 10 et HP Photosmart C6200 series (jet d'encre)
Mais erreur d'impression avec le couple Windows 10 et HP Laserjet Pro MFP M280nw (dans la file d'attente, message "Erreur - Impression en cours"). J'ai téléphoné au support HP, pas d'amélioration (réinitialisation et réinstallation de l'imprimante avec le dernier pilote). Précision : l'imprimante fonctionne parfaitement par ailleurs, il n'y a que mes développements sous Delphi 7 qui provoquent l'erreur. Quelqu'un a-t-il rencontré (et solutionné ) ce problème ?

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
procedure TForm1.Button1Click(Sender: TObject);
var r: TRect;
    i: Integer;
begin
  if PrintDialog1.Execute = False then
    begin
      Exit;
    end
  else
    begin
      if PrinterSetupDialog1.Execute = False then
        begin
          Exit;
        end
      else
        begin
          //Impression;
          Printer.BeginDoc;
          Printer.Canvas.Brush.Style := bsClear;
          Printer.Canvas.TextOut(300,300,'Essai d''impression');
              //Dessin d'un rectangle
              Printer.Canvas.Brush.Color := clBlack;
              r := Rect(200,200,(Printer.Pagewidth - 200),(Printer.PageHeight - 200));
              Printer.Canvas.FrameRect(r);
          Printer.EndDoc;
        end;
    end;
end;
D'avance merci. Cordialement, Alain