Discussion :

[LandGreen]

Salut tout le monde,

Je rencontre un souci avec Quickreport sur Delphi 7 concernant l'impression du ticket. Ce ticket contient un grand nombre de produits et je souhaite ne plus afficher l'entête du ticket sur la deuxième page (voir en pièce jointe).

[Andnotor]

Plutôt revoir la taille de la page, autant au niveau report qu'imprimante. La série Epson TM par exemple accepte jusqu'à 3m de ticket.

[anapurna]

Salut

mettre le printband a false selon les condition voulu

c'est a dire que tu prend un boolean au premier passage il est a true
au second il sera a false et une fois le pieds de page imprimé il redeviens a true

Cordialement

[LandGreen]

Salut

mettre le printband a false selon les condition voulu

c'est a dire que tu prend un boolean au premier passage il est a true
au second il sera a false et une fois le pieds de page imprimé il redeviens a true

Cordialement

avez vous un bout de code ? ou un exemple svp

[SergioMaster]

Quel est le type de la bande ? EN fait il aurait fallu que cette bande soit un QRGroup sur les lignes et pas un QRHeader (désolé si je ne me souviens plus exactement des noms, cela fait longtemps que je n'ai pas utilisé quickrep).
P.S. d'ailleurs le QRHeaderColumn aussi devrait être dans le groupe

D'ailleurs il y a un forum plus spécialisé https://www.developpez.net/forums/f1...s/quickreport/

je dessinerai quelque chose comme ça
ENTETE (bienvenue) Header premiere page
DEBUT GROUPE (pour "entete" et intitulé colonnes)
LIGNES
TOTAUX (summary bas de page)

[anapurna]

Salut

Voici un petit résumé de comment faire

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
 
Interface 
  TFacClient = class(TForm)
    FactClient : TDataset;
    ... // description des champs
    QRFactClient : TQuickRep;
    RbPageHeaderFact  : TQRBand;
    RbGroupFooterFact : TQRBand;
    ...
    procedure FormCreate(Sender: TObject);
    procedure RbPageHeaderFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
    procedure RbGroupFooterFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
  Private  
    BoolFirstPrint : Boolean;
  End;
Implementation 
 
procedure TFacClient.FormCreate(Sender: TObject);
begin
  BoolFirstPrint := True;
end;
 
procedure TFacClient.RbPageHeaderFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
begin
   // ici c'est l'entete de ta facture 
  PrintBand := BoolFirstPrint;
  BoolFirstPrint := False; 
end;
 
 
procedure TFacClient.RbGroupFooterFactBeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
begin
  BoolFirstPrint := True;
  // ici c'est le pied de page (les totaux)
end;
 
End.

[LandGreen]

Merci beaucoup pour votre aide jusqu'à présent !
Cependant, j'ai remarqué une zone (en rouge) dans mon ticket (en attaché) utilisateur et j'aimerais m'en débarrasser.
Auriez-vous des suggestions sur la façon de le faire ? Toute aide serait grandement appréciée !

[SergioMaster]

Il faudrait que l'on sache sont les types de bandes utilisées (structure de l'état), pour moi, il y a un problème de conception de l'état.
Comme je vois encore deux entêtes, j'en déduis que ce n'est pas encore ça, il y a saut de page
Il me semble que c'est à cause d'une taille de page, à ma souvenance, il est possible d'indiquer une impression en continu. De plus il y a peut-être un problème matériel (configuration de l'imprimante), en général une imprimante ticket est très spécifique.

[Andnotor]

Tout ce que tu vas faire par code n'est qu'un emplâtre pour tenter de corriger de mauvais réglages de la taille papier.

Là tu es en preview et on voit clairement que le format est A4. Le blanc est juste ce que tu as défini, on voit bien sur ta première image qu'il y a 80mm de vide en bas de page. Ca ne se voit pas à l'impression puisqu'en général les imprimantes de tickets ignorent le vide en fin de document (ne consomment pas du papier pour rien).

Ce qu'on remarque aussi est que l'imprimante est à coupe manuelle (ça se voit à la denture). En bidouillant pour supprimer l'entête tu as l'impression d'une seule page (un seul ticket) mais si tu changes d'imprimante pour un modèle à coupe automatique tu auras bien deux tickets. Tu seras là bien obligé de revoir les réglages ; donc autant le faire tout de suite

[LandGreen]

Il faudrait que l'on sache sont les types de bandes utilisées (structure de l'état), pour moi, il y a un problème de conception de l'état.
Comme je vois encore deux entêtes, j'en déduis que ce n'est pas encore ça, il y a saut de page
Il me semble que c'est à cause d'une taille de page, à ma souvenance, il est possible d'indiquer une impression en continu. De plus il y a peut-être un problème matériel (configuration de l'imprimante), en général une imprimante ticket est très spécifique.

Merci pour votre réponse. Cependant, quelle est la taille idéale pour un ticket ? J'ai défini la taille à 80 mm/1000 mm (afin de supporter n'importe quel nombre de produits), mais le problème persiste : l'impression commence avec 900 mm de vide, puis imprime le contenu du ticket par la suite.

Existe-t-il une solution à ce problème ?

Merci d'avance pour votre aide.

[SergioMaster]

Existe-t-il une solution à ce problème ?

la solution est tout d'abord de répondre à mes interrogations :
Type d'imprimante ?
- windows détecte t'il le papier continu

Types de bandes utilisées ?

On peut toujours également calculer la taille de papier en fonction du nombre de lignes à imprimer.
On peut utiliser l'ancêtre QReport pour passer hors des limites du composant "standard"
On peut aussi se poser la question de l'utilisation de Rave plutôt que quickreport (histoire de vérifier que rave permette ce genre de chose)
On peut aussi utiliser (ce que j'ai fait pour des imprimantes tickets) utiliser les commandes directes à l'imprimante (là je me rapproche de AndNotOr et ses coupures de ticket) voir ceci

Bref, la solution commence par un établissement des faits pas une constatation du problème

[LandGreen]

la solution est tout d'abord de répondre à mes interrogations :
Type d'imprimante ?
- windows détecte t'il le papier continu

Types de bandes utilisées ?

type d'imprimante : imprimante thérmique Xprinter
Windows détécte le papier oui l'impression de fait normal

type de bandes : comment trouver ça ?

par contre j'ai essayé d'imprimer une longe liste ça a marché comme le montre la figure, mais le bas de page la ou il y a les totaux ect... n'est pas affiché !

des idées svp ?

[LandGreen]

la solution est tout d'abord de répondre à mes interrogations

voici une capture d'écran illustrant tout
quel est le bon paramétrage dans mon cas ?

[LandGreen]

additivement :

lorsque j'ai exporté le ticket en PDF je vois que la partie en bas a été ignorée au lieu sachant que la taille est défini sur 79 / 1000

voir figure

[SergioMaster]

Bonjour,

comme je l'ai déjà écrit je serais parti sur un
QRGRoupHeader -- à la place de header, (groupe sur numéro ticket)
QRDetailBand
QRGroupFooter -- à la place de summary

Reste le problème de la taille, toujours à mon avis et sans essai, il serait facile de calculer la hauteur en ajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

QReport1.Height:=QRGroupHeader.Height+QRDetailBand.Height*nombre de lignes+QRGroupFooter.Height+Marge_Haut.height+marge_bas.height

NB. Pas besoin de ce "boolfirstprint", on imprime un ticket à la fois (sauf si la demande est incomplète ?)