Probleme d'impression d'une Form

Version imprimable

29/01/2007, 18h22
andreditdd

Probleme d'impression d'une Form

Bonjour,
voici encore un soucis:
A l'impression d'une Form, il me manque le bas de cette Form et ce quel que soit la taille de celle-ci.
Ce que je trouve étrange, c'est que si comme imprimante je choisi "Microsoft Office Document Image Writer" l'image TIFF générée est complete. Mais si je choisi une imprimante normale, le bas de ma feuille reste blanche.
Si comme BorderStyle je choisi "bsNone", l'impression est ok mais si je choisi "bsSingle" (que j'ai besoin) ben le probleme apparait.

Avez vous des idées ???

Merci,
André
29/01/2007, 19h43
Eric Boisvert

Si il s'agit d'une imprimante laser... peut-être qu'elle manque de mémoire...
et ca donne une impression partielle du document....

mais bon avec autant de détail... c'est pas évident d'avoir beaucoup d'idée...

Comment sélectionne-tu l'imprimante?...(un bout code)
Comment imprime-tu ta forme?...(un bout code)
Quelle type d'imprimante?...(Laser, à jets d'ancre, matriciel, carte perforeuse :mouarf: )
Quelle type de branchement?...(Réseau,Local)
Complexité de la form (combien d'éléments sur la form exemle: 3 bouton, 10 lable, 15 TEdit)
......et à ce sujet... t'a essayé avec une forme pratiquement vide?

Voilà...c'est tout ce qui me vient en tête...
29/01/2007, 19h56
andreditdd

Eric, merci pour ta réponse...
Voici les éléments demandé:
- J'ai effectué des tests avec plusieurs imprimantes et c'est tjrs la meme chose (donc c'est moi qui m...de).
-Pour selectionner l'imprimante, je suis le bout de code que l'on m'a donné et qui fonctionne bien me semble t'il. voir:http://www.developpez.net/forums/sho...d.php?t=267236
-Ma Form contient plusieurs Memo et Edits (une dizaine).

Voilou...:oops:

André
29/01/2007, 20h20
Eric Boisvert

Si j'ai bien compris, tu essaie d'imprimer ta forme au moment de la
sa création...pendant l'évènement Form.Create...
tu dois savoir que tout les élèments visuelles que contient ta form ne
sont pas tous encore visible...et c'est ce que tu obtient selon moi sur le papier...

déplace ton code d'impression dans l'évènement OnActivate() de ta form.

si je suis dans l'érreur, faudrait ton bout de code qui imprime...
29/01/2007, 20h27
Droïde Système7
Bonjour,

Je viens de tester directo via le zip inclus dans l'autre topic.

Seconde form en bsSingle, ses dimensions : 100 x 200
Tout au dessous vers la gauche, j'ai placé un label afin de tester si le printage allait être effectué.

Verdict :
Toute la seconde form s'imprime et aussi le label tout au bas.

@ Éric :
Code:

1 2 3 4 5 6 7 procedure TForm2.FormCreate(Sender: TObject); begin with TPrintDialog.Create(Application) do begin if Execute then Print; end; end;
Vi en Create.
29/01/2007, 20h36
Eric Boisvert

j'ai fait les mêmes tests avec le .zip....
avec D5 + Win2k...

Les lables s'imprime... oui...
les mémo ... seulement les cadres (pas de texte à l'intérieur)
les Edit ... seulement les cadres (pas de texte à l'intérieur)
et aucun bouton...

c'est pourquoi je sudgère de changer le moment de l'impression...

Merci à vous,
je viens d'essayer la solution d'Eric mais ça ne résoud rien :oops: ...
Ce que je trouve bizarre, c'est que lorsque je met le BorderStyle sur bsNone c'est ok...
voici les bouts de codes:

Form1

Code:

1
2
3
4
5
6
7
8
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with TForm2.create(Application) do
  begin
    Showmodal;
    Free;
  end;
end;

Form2

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
31
procedure TForm2.FormCreate(Sender: TObject);
 begin
  Memo1.Text := Form1.rem;
  pasi.Text:=Form1.pasi.items[Form1.pasi.itemindex];
  groupe.Text := '23';
  ambu.Text:= Form1.ComboBox1.Text;
  typedamb.Text:=Form1.combobox3.Text;
  lieu.Text:=Form1.Edit10.Text;
  canton.Text:=Form1.Edit11.Text;
  nr100.Text:= Form1.Edit2.Text;
  date.Text:= DateToStr(Form1.DateTimePicker1.Date);
  sortie.Text:= Form1.Edit6.Text + 'H' + Form1.Edit7.Text;
  rentree.Text:= Form1.Edit8.Text + 'H' + Form1.Edit9.Text;
  appel.Text:=Form1.ComboBox2.items[Form1.ComboBox2.itemindex];
  commune.Text:=Form1.Edit12.Text;
  destination.Text:=Form1.ComboBox9.items[Form1.ComboBox9.itemindex];
  motif.Text:=Form1.ComboBox4.items[Form1.ComboBox4.itemindex];
  lieupubl.Text:=Form4.typedelieu.Text;
  adrlieu.Text:=Form4.rue.Text + '   Nr' + Form4.Edit2.Text + '  -  ' + Form4.Edit3.Text + '  ' + Form4.Edit4.Text;
end;
 
//-------------------------------------------------------
 
procedure TForm2.FormActivate(Sender: TObject);
begin
 with TPrintDialog.Create(Application) do
  begin
    if Execute then begin
    Print;
     end;
  end;

Merci,
André