problème d'impression d'une form

Question

bonjour,





je d&#233;bute en delphi et j'ai chercher sur les forums comment imprimer.
j'ai trouv&#233; divers &#233;l&#233;ments mais aucun ne correspond a ce que je
recherche ou alors ne fonctionne pas.


j'utilise ce code :





Code:, 		----
procedure Tfm_cde.SpeedButton1Click(Sender: TObject);

var  bp : Tbitmap;

rect : TRect;

begin

PrintDialog1.Execute;

bp:=fm_cde.GetFormImage;

printer.BeginDoc;

rect.top:=15;

rect.left:=15;

rect.right:=printer.pageWidth-15;

rect.bottom:=printer.pageHeight-15;

printer.Canvas.StretchDraw(rect,bp);

printer.EndDoc;

bp.Free

end;







j'utilise un printdialog pour obtenir le fenetre de selection
d'imprimant. mais ce code ne fonctionne pas. il me fait carr&#233;ment
plant&#233; mon pc et je suis obliger de red&#233;marrer car plus rien ne
fonctionne.


Aidez moi stv.


je continue de chercher sur les forums.


merci d'avance.


salutation


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

Tu peux directement appeler fm_cde.Print pour imprimer ta fiche 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_emeraudes · Answer

merciiiiiii beaucoup ca marche 

je n'y avais pas pens&#233; mercii de ton aide.



bon prog a toi aussi et @ une prochaine fois peut etre.

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

cs_emeraudes · Answer

encore un petit renseignement : tu ne serais pas comment je dois faire
pour imprimer cette form en format A4 sans le bouton imprimer?

merci


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

Ce code te permet d'imprimer l'image de ta form en prenant le maximum de place sur la feuille (détection automatique de l'impression paysage ou portrait), tout en gardant les proportions : procedure TForm1.Button1Click(Sender: TObject); var FormImage: TBitmap; AspectRatio: Single; OutputWidth, OutputHeight: Single; begin // Capture de l'image de la form FormImage := GetFormImage; // On définit l'orientation la mieux adaptée. Si c'est un carré, on choisit poLandscape Printer.Orientation := poLandscape; If FormImage.Height > FormImage.Width then Printer.Orientation : = poPortrait; // Titre vu dans le gestionnaire d'impression Printer.Title := 'Impression de l''image de la form'; // On veut qu'une feuille s'imprime Printer.Copies := 1; // Début du document Printer.BeginDoc; try // On prend le plus de place possible sur la feuille, tout en gardant les proportions OutputWidth : = FormImage.Width; OutputHeight := FormImage.Height; AspectRatio := OutputWidth / OutputHeight; if (OutputWidth < Printer.PageWidth) and (OutputHeight < Printer.PageHeight) then begin if OutputWidth < OutputHeight then begin OutputHeight : = Printer.PageHeight; OutputWidth := OutputHeight * AspectRatio; end else begin OutputWidth : = Printer.PageWidth; OutputHeight := OutputWidth / AspectRatio; end end; if OutputWidth > Printer.PageWidth then begin OutputWidth : = Printer.PageWidth; OutputHeight := OutputWidth / AspectRatio; end ; if OutputHeight > Printer.PageHeight then begin OutputHeight : = Printer.PageHeight; OutputWidth := OutputHeight * AspectRatio; end; // On dessine l'image de la form sur le canvas de l'imprimante Printer.Canvas.StretchDraw(Rect(0,0,Trunc(OutputWidth),Trunc(OutputHeight)),FormImage); finally // On démarre l'impression Printer.EndDoc; // On libère FormImage FormImage.Free; end; end; J'espère que ça t'ira @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

cs_emeraudes · Answer

merciii pour ton code mais ca ma fait plait planter mon pc et g du rallumer l'ordi.

comment dois je faire? pk ca a planter? 

merci de ton aide 

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

chez moi &#231;a plante pas .... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_emeraudes · Answer

tu serais pas pk ca fait ca?


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

no dsl aucune id&#233;e... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

jmp77 · Answer

Je viens te tester ton code Ni69 et il dechire tout je le garde de
cote. Enfin tout ca pour dire que ca bug pas chez moi non plus.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

cs_emeraudes · Answer

arfeu mince la sui a mon stage donc je r&#233;essayerai chez moi et je vous dirai si ca plante aussi

en tout cas merci de m'avoir r&#233;pondu et bonne continuation a tous

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

cs_emeraudes · Answer

j'ai essayai le code chez moi ca n'a pa plant&#233; mais ca n'a pas afficher sur tte la feuille

est ce normal?

que dois-je faire?

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

quand tu dis "ca n'a pas afficher sur tte la feuille", tu veux dire qu'il y a eu des blancs ? c'est normal, si tu veux que l'impression soit proportionelle ! 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_emeraudes · Answer

ben en fait je voudrai ke ca imprime sur toute la feuille cad ke ca soi
par exemple au centre car ya du blanc en bas et c pa pr&#233;sentable car je
doi imprimer des bon de commande. faudrai ke ca imprime au moins au
centre car si ya du blanc en bas, ca le fai pas

tu compren ce ke je veu dire?


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

essaie comme &#231;a (j'ai pas test&#233;) :

Printer.Canvas.StretchDraw(Rect((Printer.PageWidth - Trunc(OutputWidth)) div 2,(Printer.PageHeight - Trunc(OutputHeight)) div 2,Trunc(OutputWidth),Trunc(OutputHeight)),FormImage);


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_emeraudes · Answer

merci je vais essayai et je di apres si ca marche ou pas

en tout cas merci de m'aider


>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

cs_emeraudes · Answer

ca ne marche pa ca me l'imprime presque au centre mais ca &#233;crase l'image, cad que les &#233;criture sont &#233;cras&#233;, compress&#233;.

je voudrais que ca imprime au centre mais pas &#233;cras&#233; comme ca l'a imprim&#233; avec le bout de code


Printer.Canvas.StretchDraw(Rect((Printer.PageWidth
- Trunc(OutputWidth)) div 2,(Printer.PageHeight - Trunc(OutputHeight))
div 2,Trunc(OutputWidth),Trunc(OutputHeight)),FormImage);






>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

ni69 · Answer

d&#233;sol&#233; pour le retard... 
en effet, cette instruction n'est pas exacte, utilise plut&#244;t :
Printer.Canvas.StretchDraw(Rect((Printer.PageWidth - Round(OutputWidth)) div 2,(Printer.PageHeight - Round(OutputHeight)) div 2,(Printer.PageWidth - Round(OutputWidth)) div 2+Round(OutputWidth),(Printer.PageHeight - Round(OutputHeight)) div 2+Round(OutputHeight)),FormImage);


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_emeraudes · Answer

merci pour le code je vais l'essayai et apres je te dirais si ca fonctionne.
merci de ton aide.

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

 · Answer

euhhh je viens d'essayai ton code et ca m'imprime bizarrement, il me l'imprime en format paysage et donc forc&#233;men ca me coupe une partie de ma feuille.
ton code ne fonctionne pas dslll.

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

cs_emeraudes · Answer

euh dsl ya pa mon pseudo mais c'est moi qui l'est poster le mess 

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

MadProf · Answer

Perso j'ai teste ce code il fonctionne parfaitement beau boulot ;)

ni69 · Answer

Ah ! je me disais , ça fonctionnait bien chez moi, alors j'en arrivais à me demander si j'étais le seul à avoir un résultat correct Je ne vois toujours pas ce qui ne va pas chez emeraudes... @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

cs_emeraudes · Answer

Ben moi non plus je comprends pas je voudrais bien que ca marche pourtant mais ya rien a faire. C'est bizarre que ca ne marche pas chez moi et chez vous oui.  En tout cas merci de votre aide. 

Bonne prog &#224; tous.

>>>> "Le g&#233;nie n'existe pas sans un grain de folie"

Problème d'impression d'une form

23 réponses

Votre réponse

Discussions similaires