Discussion :

[quarkz]

Bonjour!

Je voudrais avoir si il est possible d'imprimer un fichier texte notepad sans avoir besoin de l'ouvrir au préalable. Je voudrais que l'utilisateur n'ait qu'à cliquer sur un bouton pour que le programme cherche un fichier et l'imprime.
J'ai beau chercher partout je n'arrive pas a trouver un exemple de cette procedure.

Merci

[Eric Sigoillot]

Bonsoir !

Regarde dans l'aide l'unité Printers.

@++

[quarkz]

Je viens de jetter un oeil mais j'ai pas tout calculé ^^
Je ne vois pas dans l'aide ou il est question de la lecture d'un fichier texte et de son impression...

[Nono40]

Il me semble que ShellExecute est capable de le faire avec la commande "PRINT" au lieu de "OPEN".

[quarkz]

Oui c'est tout a fait exact, c'est d'ailleurs par la que j'avais commencé, le problème c'est qu'apparement c'est une impression "brut de pomme", c'est-a-dire qu'on ne peut pas modifier grand chose (par exemple il imprime en entete le nom du fichier ce que je ne voudrais pas). Mais dans l'absolu si c'est le seul moyen (en tout cas c'est le seul que j'ai réussi a faire marcher pour le moment! ) et bien ca sera shellexecute.

Merci en tous les cas de vos réponses

[Eric Sigoillot]

Je ne vois pas dans l'aide ou il est question de la lecture d'un fichier texte et de son impression...

L'aide ne donne pas tout le code tout cuit non plus

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
procedure PrintTextFile(const AFileName: string; const AMargin: Integer = 10);
var
  S: TStringList;
  h, i: Integer;
begin
  S := TStringList.Create;
  try
    S.LoadFromFile(AFileName);
    with Printer do
    begin
      BeginDoc;
        h := AMargin;
        for i := 0 to S.Count - 1 do
        begin
          Canvas.TextOut(AMargin, h, S[i]);
          Inc(h, Canvas.TextHeight(S[i]));
 
          if h > PageHeight - 2 * AMargin then
          begin
            NewPage;
            h := AMargin;
          end;
        end;
      EndDoc;
    end;
  finally
    S.Free;
  end;
end;

Code non testé, mais ça doit être un truc dans le genre... Tu peux aussi modifier la police, changer sa taille, convertir la marge des pixels vers des centimètres et j'en passe...

@++

[quarkz]

L'aide ne donne pas tout le code tout cuit non plus

Et oui c'est bien pour ca que je demande de l'aide ici en effet quand t'es débutant il est parfois necessaire d'avoir un bout de code pour éclaircir les choses (parce que des fois ya des trucs vraiment obscurs)

En tous cas je te remercie beaucoup, et je vais tester ca!

[quarkz]

It works perfectly!
Merci beaucoup.

[quarkz]

Par contre j'ai juste un soucis, c'est que si le texte dépasse la surface imprimable, il ne revient pas a la ligne et donc est tronqué...

[Eric Sigoillot]

Allez, à toi de bosser un p'tit peu
Il faut te servir de la propriété PageWidth pour voir si le texte rentre. Pour connaître la largeur du texte, il faut utilise Canvas.TextWidth. Et si jamais il est trop grand, il faut le couper où il faut, en utilsant les fonctions Copy et Delete par exemple...

@++

[quarkz]

Bon allez je vais chercher encore alors (j'étais sur la bonne voie deja avec textwidth), mais si je trouve pas promis je reviens t'embeter

Merci de ta gentillesse en tous cas