Discussion :

[petitcoucou31]

j'ai cru déja avoir poster un message dans ce genre , mais je suis incapable de le retrouver : .

Je cherche a imprimer "au fil de l'eau" un fichier text .

Donc imprimer un resultat , et attendre le resultat suivant pour l'imprimer .. , sans que la page ne sorte de l'imprimante , et cela jusqu'a ce que determine qu'elle soit "pleine" .
Quand j'utilise un BeginDoc et EndDoc , la page sort de l'imprimante !

si quelqu'un a une solution , ou un endroit ou je pourrai trouver des info ..
merci !

[Linkin]

C'est quand tu as "rempli" ta page qu'il faut faire le EndDoc.

[petitcoucou31]

Mais c'est pas le but ! le but etant d'imprimer ' au fil de l'eau ' les resultats .
Ils peuvent arriver toutes les 15 mn et et etre imprimé a ce moment là ! , et je ne veux pas sortir une page a chaques ligne envoyé a l'imprimante .

bye

[Lung]

Si tu trouves quelque chose, n'oublie pas de le poster.
Ca m'intéresse aussi ...

[Linkin]

Pour ton message, merci le cache de Google.

http://66.102.9.104/search?q=cache:Z...27eau%22&hl=fr

J'avais mal compris le au fil de l'eau.

Pour imprimer au fil de l'eau, je ne pesne pas qu'il y ait de solutions avec une imprimante "classique".

[LadyWasky]

Imprimer au fil de l'eau, c'est possible....
Mais uniquement avec une imprimante matricielle ! Le code que j'ai trouvé sur UDDF (http://www.manualy.sk/uddf/pages/printer.htm#printer6), le fait très bien. Je met le code un peut plus loin...

Sinon, le mieux, c'est de lancer une impression toutes les 50 lignes(par exemple). A chaque fois tu remplis dans un TStringList les lignes de la n° ((n-1)*50) à (n*50) que tu imprimes, n étant égal n=NTotal mod 50, NTotal étant le nombre total de lignes que tu as reçu. Le déclanchement de l'impression s'effectuant donc a chaque fois que n change.
Voici l'algorithme :

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
 
Const NbreLignesParPage:=50;
var Entree,Sortie:TstringList;
     N:integer;
     Ntotal:integer;
begin
  Entree:=TStringList.create;
  Sortie:=TStringList.create;
  N:=0;
  While not Fin do recevoir(ligne:string);
  Entree.free;
  Sortie.free;
end;
....
procedure recevoir(ligne:string);
var VieuxN,i:integer;
begin
  VieuxN:=N;
  Entree.add(ligne);
  NTotal:=Entree.count+1;
  N:=NTotal mod NbreLignesParPage;
  if N<>VieuxN then
  begin
    //Remplir Sortie
    Sortie.clear;
    for i:=(VieuxN*NbreLignesParPage) to (N*NbreLignesParPage) do
       Sortie.add(Entree.Strings[i]);
    //Imprimer Sortie
    Imprime(Sortie);
  end;
end;

sinon voici le code que j'ai trouvé pour une imprimante matricielle :

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
var Myprinter : TRawPrinter;
    oldprinter : TPrinter;
begin
 MyPrinter:=TRawPrinter.Create;
 oldprinter:=setprinter(MyPrinter);
 try
  if Printdialog1.execute then
  begin
    myprinter.startraw;
    myprinter.write('khsdhskhkshdksd');
    myprinter.writeln;
    myprinter.endraw;
  end
 finally
  setprinter(oldprinyter);
  myprinter.free;
 end
end;

et l'unité "qui fait tout" :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
unit Rawprinter;
 
interface
uses printers,windows;
 
type TRawprinter =class(TPrinter)
                  public
                    dc2 : HDC;
                    procedure startraw;
                    procedure endraw;
                    procedure write(const s : string);
                    procedure writeln;
                  end;
 
implementation
uses sysutils,forms;
 
function AbortProc(Prn: HDC; Error: Integer): Bool; stdcall;
begin
  Application.ProcessMessages;
  Result := not Printer.Aborted;
end;
 
type
  TPrinterDevice = class
    Driver, Device, Port: String;
    constructor Create(ADriver, ADevice, APort: PChar);
    function IsEqual(ADriver, ADevice, APort: PChar): Boolean;
  end;
 
constructor TPrinterDevice.Create(ADriver, ADevice, APort: PChar);
begin
  inherited Create;
  Driver := ADriver;
  Device := ADevice;
  Port := APort;
end;
 
function TPrinterDevice.IsEqual(ADriver, ADevice, APort: PChar): Boolean;
begin
  Result := (Device = ADevice) and (Port = APort);
end;
 
 
procedure TRawprinter.startraw;
var
  CTitle: array[0..31] of Char;
  CMode : Array[0..4] of char;
  DocInfo: TDocInfo;
  r : integer;
begin
  StrPLCopy(CTitle, Title, SizeOf(CTitle) - 1);
  StrPCopy(CMode, 'RAW');
  FillChar(DocInfo, SizeOf(DocInfo), 0);
  with DocInfo do
  begin
    cbSize := SizeOf(DocInfo);
    lpszDocName := CTitle;
    lpszOutput := nil;
    lpszDatatype :=CMode;
  end;
  with TPrinterDevice(Printers.Objects[PrinterIndex]) do
  begin
    DC2 := CreateDC(PChar(Driver), PChar(Device), PChar(Port), nil);
  end;
  SetAbortProc(dc2, AbortProc);
  r:=StartDoc(dc2, DocInfo);
end;
 
procedure TRawprinter.endraw;
var r : integer;
begin
  r:=windows.enddoc(dc2);
end;
 
type passrec = packed record
                 l : word;
                 s : Array[0..255] of char;
               end;
var pass : Passrec;
procedure TRawprinter.write(const s : string);
begin
  pass.l:=length(s);
  strpcopy(pass.s,s);
  escape(dc2,PASSTHROUGH,0,@pass,nil);
end;
 
procedure TRawprinter.writeln;
begin
  pass.l:=2;
  strpcopy(pass.s,#13#10);
  escape(dc2,PASSTHROUGH,0,@pass,nil);
end;
 
end.

Bon courage !!!

[petitcoucou31]

Merci Waskol , c'etait le code que j'avais deja vu quelque part ici même , mais que je n'arrivais plus a retrouver.

Par contre tu dit que çà ne marche que sur les matricielles ! là c'est un soucis pour moi !
Ensuite j'imprime via un port USB , donc les matricielles de "matusalem".. sur Usb va falloir les inventer !

merci quand meme je vais voir ce que je peux faire quand meme çà !

bye !