Discussion :

[chekkal]

Bonjour à tous,

Pour imprimer dans le canevas de l'imprimante, j'utilise ce bout de code.

Code :

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

1
2
3
4
5
6
with printer do
begin
begindoc;
canvas.textout(x,y,'texte à imprimer');
enddoc;
end;

maintenant le probléme c'est que je veut répeter l'opération sur des centaines de feuilles (800 minimum) et j'ai modifier le code comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
with printer do
begin
begindoc;
for i:=1 to 800 do
begin
         canvas.textout(x,y,'texte à imprimer'); 
         newpage;
end;
enddoc;

mais là il imprime sur la première page mais pas sur les autres.

[Charly910]

Bonjour,

pour moi sur D7 avec l'imprimante PdfCreator, ces 2 codes fonctionnent bien :

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
30
31
32
33
34
35
36
procedure TF_Princ.Button2Click(Sender: TObject);
Var
  x, y : Integer ;
  i : Integer ;
begin
  x := 300 ;
  y := 1000 ;
  with printer do
    Begin
      Begindoc;
      For i := 1 To 5 do
        Begin
          Canvas.textout(x,y,'texte à imprimer n° '+ IntToStr(i) );
          NewPage ;
        End ;
      Enddoc;
    End;
end;
 
procedure TF_Princ.Button3Click(Sender: TObject);
Var
  x, y : Integer ;
  i : Integer ;
begin
  x := 300 ;
  y := 1000 ;
  With printer do
    Begin
      For i := 1 To 3 do
        Begin
          BeginDoc ;
          canvas.textout(x,y,'texte à imprimer n° '+ IntToStr(i) );
          EndDoc ;
        End ;
    End;
end;

Le premier imprime toutes les pages dans le même fichier Pdf, le second créé autant de fichiers que de pages.

A+
Charly

[chekkal]

bonjour,

j'ai remédié au probléme on utilisant le code:

Code :

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

1
2
3
4
5
6
7
 
with printer do
begin
begindoc;
canvas.textout(x,y,'fff' );
enddoc;
end;

mais, l'imprimante est réinitialisé à chaque fois.

[Jipété]

Yep !

bonjour,

j'ai remédié au problème en utilisant le code:

Code :

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

1
2
3
4
5
6
7
 
with printer do
begin
begindoc;
canvas.textout(x,y,'fff' );
enddoc;
end;

Elle est où, la boucle des 800 pages minimum dont il est question dans le post d'origine ?

(En espérant que tu fais tes test vers du pdf, sinon bonjour le gaspillage de papier... À notre époque, ça la fout mal.)

[Charly910]

Bonjour,
pour ne pas réinitialiser l'imprimante il faut utiliser ma première solution (et non la seconde). Avec PDF on a un seul fichier avec plusieurs pages (800 pour toi)

A+
Charly

[chekkal]

désolé j'ai oublié d'intégrer la boucle

Code :

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

1
2
3
4
5
6
7
with printer do
begin
begindoc;
            for i:=1 to 800 do 
               canvas.textout(x,y,'fff' );
enddoc;
end;

Mon but c'est pas de créer un fichier (pdf pour l'exple). J'ai des pré-imprimé et je voudrais imprimer sur des positions bien précise sur chaque feuille. le code ci-dessus marche mais la réinitialisation de l'imprimante prend à chaque fois 2 secondes en moyenne, alors pour 1000 feuilles

[Jipété]

Yep !

Bonjour,
pour ne pas réinitialiser l'imprimante il faut utiliser ma première solution (et non la seconde).

Celle qui inclut le NewPage à chaque tour de boucle ?
Déjà testé, mais

là il imprime sur la première page mais pas sur les autres .

Au fait, il n'imprime rien sur les autres (ie 799 pages sortent blanches) ou elles ne sont même pas avalées par la machine ?

Si c'est "rien", peut-être qu'il n'y a rien à imprimer ? À tester dans un pdf.

Sinon c'est un problème d'imprimante/de pilote d'imprimante et là, on ne pourra rien faire : à voir avec le fournisseur.

[Charly910]

Bonjour,
@Jipété : oui avec Newpage à chaque tour de boucle, la boucle étant entre le Begindoc et le EndDoc, on obtient un pdf unique avec n pages

Le dernier code proposé par Chekkal, n'imprime qu'une seule page avec 800 fois son texte imprimé à la même place car il ne modifie pas y ?

je ne comprends pas son histoire de réinitialisation d'imprimante qui ne doit se produire qu'une seule fois au Begindoc ? (ou au EndDoc qui lance l'impression ?)

A+
Charly

[Bernard B]

Bonjour,
Une autre solution consiste à donner une valeur à Printer.copies:=800; pour 800 pages et d'écrire dans le canvas pour définir le contenu de la page.

[Charly910]

Bonjour,
j'ai essayé printer.copies := 3 sans succès (avec ou sans PrintDialog) : mon PDF ne contient qu'une page :

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
procedure TF_Princ.Button2Click(Sender: TObject);
Var
  x, y : Integer ;
  i : Integer ;
begin
  x := 300 ;
  y := 1000 ;
  i := 1 ;
  Printer.copies := 3 ;
  If PrintDialog1.execute Then
  Begin
    With printer do
      Begin
        BeginDoc ;
        canvas.textout(x,y,'texte à imprimer n° '+ IntToStr(i) );
        EndDoc ;
      End;
  End ;
end;

Je pense que le mieux pour Chekkal, c'est d'imprimer ses formulaires dans un seul fichier Pdf, de vérifier et d'imprimer ses 800 pages (comme quand on fait un mailing avec Word)

A+
Charly

[Jipété]

Une autre solution consiste à donner une valeur à Printer.copies:=800; pour 800 pages et d'écrire dans le canvas pour définir le contenu de la page.

Lecture...
Pour moi, tu vas avoir 800 fois la même page alors que l'OP veut 800 pages avec des informations différentes.

@Jipété : oui avec Newpage à chaque tour de boucle, la boucle étant entre le Begindoc et le EndDoc, on obtient un pdf unique avec n pages

On est donc bien d'accord, attendons sa réponse puisqu'on dirait que NewPage lui pose un problème...

Le dernier code proposé par Chekkal, n'imprime qu'une seule page avec 800 fois son texte imprimé à la même place car il ne modifie pas y ?

Oui, c'est bien ce qu'il veut, il a parlé de feuilles pré-imprimées dans lesquelles il va remplir des zones (comme des bulletins de salaire, ou des factures, etc.)

je ne comprends pas son histoire de réinitialisation d'imprimante qui ne doit se produire qu'une seule fois au Begindoc ? (ou au EndDoc qui lance l'impression ?)

Ben oui, dans son dernier code le couple begindoc enddoc est dans la boucle

Dans son cas, la génération d'un pdf puis son impression pourrait être une bonne idée.

j'ai essayé printer.copies := 3 sans succès (avec ou sans PrintDialog) : mon PDF ne contient qu'une page

Je suspecte que l'impression vers pdf générant un fichier, l'option l'a généré 3 fois mais sans rien pour changer le nom, le n+1 a écrasé le n.

[Bernard B]

Effectivement l'envoie de 3 fois le même fichier vers une fausse imprimante PDF ne génère qu'un seul enregistrement.

[Charly910]

Effectivement : d'après Microsoft dans Printer.Copies :

Notes
Si le PrintAction propriété est définie sur une valeur autre que PrintToPrinter, cette propriété est ignorée.

donc avec une imprimante Pdf ce ne doit pas imprimer plusieurs copies (ce qui semble logique).

A+
Charly

[Jipété]

Effectivement : d'après Microsoft dans Printer.Copies :

donc avec une imprimante Pdf ce ne doit pas imprimer plusieurs copies (ce qui semble logique).

Bizarre bizarre, car j'étais persuadé qu'une sortie en pdf utilisait toute la mécanique d'impression dans la mesure où il s'agit là d'une imprimante, même si virtuelle.

L'article (plus précisément ici) parle de PrintToPreview (dans une fenêtre, donc) ou de PrintToFile (dans un fichier, défini par une case à cocher [ou bouton radio, je ne sais plus trop] plus un nom de fichier à définir).
OK, le pdf c'est un peu pareil, il va falloir donner un nom de fichier, mais la mécanique en amont est différente, àmha.

Enfin, ça c'est du pinaillage, mais j'aime bien comprendre et être précis, ça aide au troubleshoot,

Tiens, tu devrais, puisque tu es sous Windows (moi je suis sous Linux), faire un test en t'inspirant de l'exemple en VB du lien ci-dessus, et je suis à peu près sûr qu'en choisissant PrintToPrinter tu pourras ensuite choisir le printer... pdf !

[Charly910]

Bonjour,

j'ai essayé, mais j'ai une erreur sur Printer.PrintAction : l'identificateur Printer.PrintAction n'est pas défini (alors que Printer.copies l'est)

dans l'aide de D7 la propriété PrintAction n'existe pas pour TPrinter.

A+
Charly

[ShaiLeTroll]

Sur XPS Microsoft Document Writer, ce code fonctionne parfaitement (quoi que 801 pages, la dernière est vide)
C'est peut-être plus fiable que l'imprimante PDF que Chekkal utilise

Faudrait tester avec 3 pages sur une vraie imprimante (ah et le papier, on peut le remettre encore et encore pour les tests)

J'ai volontairement ajouter un petit calcul pour changer la place du libellé

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 TZooVCLMainForm.Button4Click(Sender: TObject);
var
  i, x, y: integer;
begin
  x := 0;
  y := 0;
  with VCL.Printers.Printer do
  begin
    BeginDoc();
 
    for  i:= 1 to 800 do
    begin
      Inc(x, i);
      if x > PageWidth then
      begin
        x := 0;
        Inc(y, 100);
        if y > PageHeight  then
          y := 0;
      end;
 
      Canvas.TextOut(x, y, Format('texte à imprimer, page %d', [i]));
 
      NewPage();
    end;
 
    EndDoc();
  end;
end;

[Charly910]

@ ShaiLeTroll :
Oui c'est exactement que je dis depuis le début. Ce code fonctionne aussi avec PdfCreator dans un fichier Pdf. On obtient n pages dans un même fichier. Ce qui ne fonctionne pas avec Pdf c'est les copies multiples : Copies := n

J'ai l'impression que l'on a donné une bonne solution à Chekkal avec toutes ses pages dans un même fichier Pdf qu'il peut ensuite imprimer ?

A+
Charly