compréhension d'impression....

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : compréhension d'impression....

os2

je voudrait imprimer sous delphi 6
: Date Enseignant Duree Suppleant
NAS

mais j'obtien seulement à l'impression:
Date Enseignant Duree Supp
voici mon code

Printer.BeginDoc;
XCols[1]:=0;
yCurr:=255;
Printer.Canvas.Font.Size:=12;
yCurr:=yCurr+Printer.Canvas.TextHeight('M';
dimPage := Rect(295,yCurr,1276,2000);
tmp:= 'Date Enseignant Duree Suppleant
NAS ';
drawtext(Printer.Canvas.Handle,pchar(tmp), length(tmp),dimPage,DT_LEFT);
Printer.Enddoc;

Comment parvenir au résultat escompté?

---------------
Borland rulez: http://pages.infinit.net/borland

Publicité

zion

Plop

Tiré de la JVCL

Code :

procedure TJvPrint.Print(Value: TStringList);
var
I, Line, Pagenum: Integer;
begin
//let's print
if Assigned(FOnBegin) then
FOnBegin(Self);
line := 0;
Printer.BeginDoc;
Pagenum := 1;
for i := 0 to Value.Count - 1 do
begin
if Assigned(FOnProgress) then
FOnProgress(Self, i + 1, Value.Count);
Line := Line + Printer.Canvas.TextHeight(Value[i]);
if Line + Printer.Canvas.TextHeight(Value[i]) > Printer.PageHeight then
begin
Line := Printer.Canvas.TextHeight(Value[i]);
Printer.NewPage;
Inc(PageNum);
if Assigned(FonNextP) then
FonNextP(Self, PageNum);
end;
Printer.Canvas.TextOut(0, Line, Value[I]);
end;
Printer.EndDoc;
if Assigned(FOnEnded) then
FOnEnded(Self);
end;

En enlevant les events ca devrait aller pour toi

---------------
Informaticien.be - Lancez des défis à vos amis

os2

j'ai eu problème de largeur on dirait car ça n'imprime pas tout ce qui devait imprimer
et je me demande pourquoi

zion

Plop

benh fais un retour à la ligne tiens

TextWidth ca pue des pieds? :sarcastic:

Message édité par zion le 27-06-2002 à 00:10:10

---------------
Informaticien.be - Lancez des défis à vos amis

os2

ok c'est correct maintenant

j'essaie d'imprimer le contenu d'un dataset en collone....
ça imprime mais rien n'est aligné

j'aimerais avoir un effet comme

jean Thibeau 14 am
mathieu Raymond 45 journée
julie smith 12 pm
......

la ça ressemble plutôt à

jean Thibeau 14 am
mathieu Raymond 45 journée
julie smith 12 pm

j'ai pas vraiment trouvé d'information pour le résultat que je veux

mon code

Code :

XCols[1]:=0;
Curr:=255;
Printer.Canvas.Font.Size:=12;
Printer.Canvas.Font.Name := 'Times New Roman';
with cdsBesoin do
begin
tmp := format(FieldByName('Nom').AsString + ' ' +
FieldByName('Nom').AsString + ' ' +
FieldByName('Age').AsInteger+ ' ' +
FieldByName('Duree').AsString ,[i,i,i,i]);
TabbedTextOut(Printer.Canvas.Handle, 295, yCurr, PChar(tmp), length(tmp), 4, XCols[1], 0);
yCurr:=yCurr+Printer.Canvas.TextHeight('M');
Next;
end;

---------------
Borland rulez: http://pages.infinit.net/borland

FORUM HardWare.fr

Programmation

Delphi/Pascal

compréhension d'impression....

Sujets relatifs
mes images de fond de <span> n'apparaissent pas à l'impression!!	pb de comprehension de position de calque (relative/absolute)
[HTML, PHP, JS] Impression d'une page web	Impression, Comment retrouver le nombre de bacs d'une imprimante?
Delphi ou C++Builder, impression et paramètres de l'imprimante.. HELP!	[Avis] Faire un soft d'impression
[VC++] pb de comprehension	Impression d'un etat en C++ Builder ou Delphi HELP!
version de style pour l'impression media="print" ???	[VB] Impression
Plus de sujets relatifs à : compréhension d'impression....

Page générée en 0.067 secondes