Discussion :

[alainvh]

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

[sergio_is_back]

Les imprimantes HP sont souvent capricieuses
Essaye tout simplement avec le driver PCL universel HP

https://www8.hp.com/us/en/solutions/...tions/upd.html

Normalement toutes les imprimantes HP Laserjet fonctionne avec celui-là

[alainvh]

Ô, grand merci " d'être de retour, Sergio "

Bingo !
Je ne connaissais pas le pilote PCL de HP.
J'ai donc dupliqué mon imprimante en attribuant au clone le pilote PCL ( que personne ne me demande comment j'ai fait cela, non parce que je ne veux pas partager, bien au contraire, mais c'est en l'occurrence le résultat d'un tâtonnement "vachement" sauvage - merci Windows 10 de nous simplifier la tâche ! ).

En conclusion, un grand merci à Sergio ! Merci aussi à tous ceux qui ont bien voulu se pencher sur mon problème.

Bien cordialement,
Alain.

[sergio_is_back]

Ô, grand merci " d'être de retour, Sergio "

Je suis jamais bien loin... Sauf quand je me déplace à l'étranger....