Problème d'impression

Version imprimable

19/05/2002, 17h36
IngBen

Problème d'impression
Salut,

J'essaye d'imprimer une image que je mets dans le Canvas d'une TPrinter.
Voici un bout de code:
Code:

1 2 3 Imprimante->BeginDoc(); Imprimante->Canvas->Draw(0,0,Ecran->Picture->Graphic); Imprimante->EndDoc();
Mais le problème, c'est que rien ne s'imprime. Pourtant la fenêtre de la liste d'attente de l'imprimante s'ouvre.

Si quelqu'un peut m'aider:?:

Impression

Déjà, il faut inclure :

Code:

#include <Printers.hpp>

Ensuite, tu peux t'inspirer de ces bouts de code issus d'un de mes programmes...

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
25
26
27
28
29
30
 
  TPrinter* pPrntr = Printer();
 
  // Préparation à l'impression
  nLargeurPage = pPrntr->PageWidth;
  nHauteurPage = pPrntr->PageHeight;
  pPrntr->Title = strcTitrePapier;
  pPrntr->Canvas->Font->Name = "Courier New";
  pPrntr->Canvas->Font->Color = clBlack;
  nHauteurCaractere = pPrntr->Canvas->TextHeight("hp");
  nMargeGauche = nLargeurPage / 15;
  nMargeHaute = nHauteurPage / 10;
  nNbLignesParPage = (nHauteurPage - (2 * nMargeHaute)) /  nHauteurCaractere;
  //---- Début
  pPrntr->BeginDoc();
 
  //---- Pour écrire
  nYEcriture = nMargeHaute + nNumLigne * nHauteurCaractere;
  pPrntr->Canvas->TextOut(nMargeGauche + nLevel * ncTailleIndentation,
                                 nYEcriture,
                                 strLigne);
 
  //--- Pour insérer un saut de page
  if (nNumLigne > nNbLignesParPage)
  {
        pPrntr->NewPage();
  }
 
  //---- Pour déclencher l'impression :
  pPrntr->EndDoc();

Bon courage,

A+

20/05/2002, 13h26
IngBen

Merci Kaji pour tes infos. Mais dans le cas présent, le problème vient du fait que je veux imprimer une image. Et je n'arrive pas à la copier sur le Canvas d'un TPrinter. J'ai aussi essayer avec CopyRect mais rien à faire.
20/05/2002, 23h55
JEG

J'ai eu le même probleme que toi IngBen, que j'ai résolut en affichant l'image dans une TForm cachée et en appelant la méthode Print() de cette form

Utilise StretchDraw, ça fonctionne très bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
{
  TPrinter* Imprimante = Printer();
 
  Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
  AnsiString FileName = "MonFichier.bmp";
 
  pBitmap->LoadFromFile(FileName);
  pBitmap->Transparent = true;
  TRect r = Rect(400, 400, 10 * pBitmap->Width, 10 * pBitmap->Height); //Ici, il faudra calculer la taille de ton rectangle en fonction du rapport résolution écran / imprimante
 
  Imprimante->BeginDoc();
  Imprimante->Canvas->StretchDraw(r, pBitmap);
  Imprimante->EndDoc();
}

@+

Fred

21/05/2002, 16h35
JEG

Moi ce que j'avais constaté (j'utilisais stretchdraw et j'étais sous C++ Builder 3 à l'époque) c'est que sur certaines imprimantes (la plupart en fait) ca marchait tout le temps tres bien, et sur d'autres ca foirait de temps en temps, "aléatoirement", sans qu'on sache pourquoi... alors que TForm::Print() marche tout le temps. Allez savoir pourquoi...
21/05/2002, 19h53
IngBen

En fait, si j'avais mieux lu l'aide, je n'aurais pas posé la question. Il est bien spécifié que Draw, StretchDraw... ne fonctionne pas très bien. Donc je préfère me débrouiller autrement pour être sur que ça marche partout.
Merci à tous pour votre aide.
22/05/2002, 11h37
Fred_smashg

Va voir sur le site de Reisdorph (www.reisdorph.com), et télécharges les exemples de code de mars et avril 2001. Je penses que ça correspond exactement à ce que tu cherches.