Imprimer une édition texte à 180° par programmation

Version imprimable

22/11/2016, 11h01
bf_77

Imprimer une édition texte à 180° par programmation

Bonjour,

J'ai une imprimante Samsung M2825ND et je cherche comment imprimer en mode 180° (par l'entrée manuelle) autrement que par le driver et la config de l'imprimante par les paramètres. Ceci afin de ne pas avoir à modifier un logiciel que j'ai écrit en DELPHI 6 , car mon ancienne imprimante canon IP4600 a lâché et et je ne peux plus imprimer sur certains docs (genre chèque, remise de chèque ...) car par défaut l’entrée manuelle imprime donc en dehors du formulaire.
Malgréde nombreux essais, je n'ai pas réussi autrement qu'en paramétrant l'imprimante avant (printersetupdialog) avant d'imprimer mes docs, ce qui n'est pas très pratique ! J'ai une autre imprimante EPSON sx435 mais le côté droit étant fixe, je ne peux pas centrer le doc comme je faisais avec la canon ip4600.

Une idée pour remédier à ce problème ?

Merci d'avance...
22/11/2016, 11h10
Invité

Tu peux utiliser le TPrinter, il contient un un TPrinterOrientation pour (portrait ou paysage).

Il y a un exemple d'impression depuis Delphi ici :
http://docwiki.embarcadero.com/CodeE...yDown_(Delphi)
22/11/2016, 13h19
bf_77

Citation:

Envoyé par retwas

Tu peux utiliser le TPrinter, il contient un un TPrinterOrientation pour (portrait ou paysage).

Il y a un exemple d'impression depuis Delphi ici :
http://docwiki.embarcadero.com/CodeE...yDown_(Delphi)

C'est pas ce que je cherche, j'ai deja l'option dans TPrinter Portrait/paysage, mais je veux imprimer en gros pour aider a comprendre, la fin de la page en premier dans le chargeur manuel (surtout pour cheques/borderau de remise,enveloppes qui ne sont pas au format A4 ) sans re-ecrire totalement mon application,; developpee il y a une dizaine d'annee, avec une imprimate canonIP6400 qui est desormais HS, et ou je pouvais en reglant les separation du chargeur mettre au milieu sans pb)
22/11/2016, 14h19
tourlourou

https://www.leboncoin.fr/informatique/1030277505.htm
22/11/2016, 15h04
bf_77

JE NE CHERCHE PAS IN FO SUR IP4600 !! mais c'etait l'imprimante pour laquelle j'avais developpe ce prog. JE cherche pour imprimante SAMSUNG M2825ND par le chargeur manuel avant
22/11/2016, 15h47
Invité

Justement, si tu rachètes la même tu as plus de problème :aie:
22/11/2016, 17h12
bf_77

Citation:

Envoyé par retwas

Justement, si tu rachètes la même tu as plus de problème :aie:

oui, mais elle existe plus depuis longtemps.... et elle affiche reservoir encre plei, et j'ai beau demonter, pas moyen de depanner.

Obsolescence programmee ? ca fait un bail que je l'avais....

Autre reponse et autre solition pour la samsung ?
22/11/2016, 19h53
gbegreg

Bonsoir,

Je ne sais pas si j'ai bien compris le besoin.
Toutefois, une piste serait peut être d'utiliser le TPrinter quand même. Ce dernier possède une propriété Canvas. Je n'ai pas testé mais il doit être possible d'affecter ce canvas dans le canvas d'un TBitmap (méthode BitBlt de l'API Windows), appliquer une rotation de 180° au bitmap puis de remettre le canvas du bitmap dans le canvas du printer...

J'ai retrouvé un bout de code que j'utilisais pour imprimer une phrase à 90° :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TMainForm.AffTexteVertical(ACanvas: TCanvas; const szTexte: String; nX, nY, nAngle: Integer);
var
   LogFont: TLogFont;
   FontTmp: TFont;
begin
   FontTmp := TFont.Create;
   try
      FontTmp.Assign(ACanvas.Font);
 
      GetObject(FontTmp.Handle, SizeOf(TLogFont), @LogFont);
      LogFont.lfEscapement := nAngle * 10;
      LogFont.lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
      LogFont.lfQuality := ANTIALIASED_QUALITY;
 
      ACanvas.Font.Handle := CreateFontIndirect(LogFont);
      SetBkMode(ACanvas.Handle, TRANSPARENT);
      // Affichage.
      ACanvas.TextOut(nX, nY, szTexte);
 
      ACanvas.Font.Assign(FontTmp);
   finally
      FontTmp.Free;
   end;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
   Printer.BeginDoc;
...
 
         // Texte vertical.
         Printer.Canvas.Font.Name := 'Arial';
         Printer.Canvas.Font.Style := [fsBold];
         Printer.Canvas.Font.Size := Convertir(60);
         AffTexteVertical(Printer.Canvas, 'BUTÉE', Convertir(1, aX), Convertir(99, aY), 90);
 
...
   Printer.EndDoc;

Si ça peut t'aider ...

Citation:

Envoyé par Lung

J'ai retrouvé un bout de code que j'utilisais pour imprimer une phrase à 90° :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TMainForm.AffTexteVertical(ACanvas: TCanvas; const szTexte: String; nX, nY, nAngle: Integer);
var
   LogFont: TLogFont;
   FontTmp: TFont;
begin
   FontTmp := TFont.Create;
   try
      FontTmp.Assign(ACanvas.Font);
 
      GetObject(FontTmp.Handle, SizeOf(TLogFont), @LogFont);
      LogFont.lfEscapement := nAngle * 10;
      LogFont.lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
      LogFont.lfQuality := ANTIALIASED_QUALITY;
 
      ACanvas.Font.Handle := CreateFontIndirect(LogFont);
      SetBkMode(ACanvas.Handle, TRANSPARENT);
      // Affichage.
      ACanvas.TextOut(nX, nY, szTexte);
 
      ACanvas.Font.Assign(FontTmp);
   finally
      FontTmp.Free;
   end;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
   Printer.BeginDoc;
...
 
         // Texte vertical.
         Printer.Canvas.Font.Name := 'Arial';
         Printer.Canvas.Font.Style := [fsBold];
         Printer.Canvas.Font.Size := Convertir(60);
         AffTexteVertical(Printer.Canvas, 'BUTÉE', Convertir(1, aX), Convertir(99, aY), 90);
 
...
   Printer.EndDoc;

Si ça peut t'aider ...

merci, mais ce n'et pas un bitamap! c'est du texte!! (impression de cheque, enveloppe, imprimes diverrs), et donc j'utilise un canvac mais avec un code style 'textout(xx,zzà 'bla bla ...mais je vais tester le morceau de code

28/11/2016, 14h36
anapurna

salut

que ce soit du texte ou une image l'impression passe par un canvas
et c'est bien lui que tu doit manipuler pour le mettre a l'angle que tu veut