changer format A4

Version imprimable

13/03/2003, 18h37
zax-tfh

changer format A4

salut a tous !!!!

eh oui c'est encore moi !
je souhaiterai savoir comment on fait pour specifier le nom d'un format d'impression dans le code.
en gros : comment dire par exemple :

kan l'utilisateur click sur le bouton, tu me configure le format d'impression en A3

voila voila !!!
merci davance !
13/03/2003, 20h59
zax-tfh

aidez moi !!!!! please help !

Patience et longueur de temps...

Voici un bout de code qui devrait répondre à ta question. Je ne connais pas de moyen de le faire en "pur" Delphi, mais ça ne fait pas de mal d'apprendre un peu à utiliser les API Windows.
Je ne l'ai pas testé car je n'ai plus de papier dans mon imprimante... :D
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 var device, driver, port: array [0..255] of char; hDMode: THandle; pDMode: PDeviceMode; begin Printer.GetPrinter(device, driver, port, hDMode); if hDMode <> 0 then begin pDMode:= GlobalLock(hDMode); if pDMode <> nil then begin pDMode^.dmFields:= pDMode^.dmFields + dm_PaperSize; pDMode^.dmPaperSize:= DMPAPER_A5; GlobalUnlock(hDMode); end; end; Printer.BeginDoc; Printer.Canvas.TextOut(100, 100, 'Test d''impression au format A5'); Printer.EndDoc; end;

salut !!!!!

merci pour ta reponse !!!!
le probleme est que le format que je souhaite est un format que j'ai créé via le panneau des imprimantes et donc il n'est pas dans la liste.
dans la doc des api jai vu que l'on pouvait specifier la taille du papier comme on veut (entre autre ils parlent des imprimantes matricielles et c'est ce que je veux justement). le big probleme qui se pose est que je ne sais pas comment on se sert des api windows sous delphi et donc voila...

j'ai essayé de modifier le code que tu m'as donné mais sans succes, ca reste en format A4...
voici ce que j'ai fait :
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 var device, driver, port: array [0..255] of char; hDMode: THandle; pDMode: PDeviceMode; begin Printer.GetPrinter(device, driver, port, hDMode); if hDMode <> 0 then begin pDMode:= GlobalLock(hDMode); if pDMode <> nil then begin pDMode^.dmFields:= pDMode^.dmFields + dm_Paperlength + dm_Papersize; pDMode^.dmPapersize:=0; pDMode^.dmPaperlength:=760; pDMode^.dmPaperwidth:=1240; pDMode^.dmPapersize:=0; GlobalUnlock(hDMode); end; end; Printer.BeginDoc; Printer.Canvas.TextOut(100, 100, 'Test d''impression au format A5'); Printer.EndDoc; end;
pourrais tu m'aider a comprendre pourquoi il reste en A4 please ???

merci d'avance !!!

Je ne peux toujour pas tester mais cela devrait être de ce genre là:

Code:

1
2
3
4
5
6
7
8
9
 
    if pDMode <> nil then
    begin
      pDMode^.dmFields:= pDMode^.dmFields - dm_Papersize;
      pDMode^.dmFields:= pDMode^.dmFields + dm_Paperlength + dm_Paperwidth;
      pDMode^.dmPaperlength:=760;
      pDMode^.dmPaperwidth:=1240;
      GlobalUnlock(hDMode);
    end;

14/03/2003, 07h48
zax-tfh

EL magnifico Pierro !!!!!!!!

alors la enormes bisous car tu me sauves la vie !!!!
MERCI BEAUCOUP !!!!!!!

va falloir ke je bosse les API et ke je comprenne leur fonctionnement moi !!!
14/03/2003, 14h30
zax-tfh

ptite question supplementaire :

peut on se servir de ce code pour imprimer un quickreport dans ce format ???
j'ai essayé mais il garde toujours le format par defaut qui est le A4.....c po cool !!!!

en esperant vivement de tout mon coeur que tu saches comment faire !!!!!!!

merciiiiiiiiiiiiiiiii