Discussion :

[newflash]

Je dispose d'une application développée sous delphi 5



dans mon application j'ai plusieurs tailles personnalisé de mes etats de sorties l'impression de fait sur une imprimante matricielle epson lq2080.

à chaque fois que veux imprimer je serai obliger de modifier la taille du papier de l'imprimante selectionnée.


j'ai meme créé des tailles personnalisés ( nouveau formulaire) sur proprieté de serveur d'impression (imprimantes et télecopies)



ces procedures (de changer à chaque fois les tailles et de créer des nouveaux formulaire sur le serveur d'impression )

fatigue l'utilisateur.

Question:

est ce qu'il y a un code delphi qui me permet de creer une taille personnalisé sur le serveur d'impression (imprimantes et telecopies) et de selctionner cette taille pour impression.



j'espere que j'ai bien decrit le probleme.

[SergioMaster]

j'espere que j'ai bien décrit le probleme.

ben non , pas vraiment


je ne comprends pas , ce sont les états quickreport qui ont des tailles personnalisées ? Quel est le besoin de faire toutes ces manips ? (à part bien sur d'avoir a changer le papier)

[newflash]

je pense que tu m'as pas bien compri ou bien pas bien expliqué.

je refais :

J'ai developpé d'une application développée sous delphi 5 sur windows xp 2


je precise : gestion de la paie.

j'ai plusieurs etats de sortie de tailles diffrents.

etat de paiment : 35 cm x 28 cm taille personnalisée sur le quickrep 3

etat de virement : 14 cm x 28 cm taille personnalisée sur le quickrep 3

avis de virement : 14 cm x 10 cm taille personnalisée sur le quickrep 3

pour l'instant :
pour imprimer l'utilisateur doit changer d'un etat à un autre le format de papier (taille de papier sur epson lq2080). sur le windows.


je que je veux et je cherche : Le format de papier se charge automatiquement, sans que l'utilisateur change la taille du papier de l'imprimante sur windows ( sauf le papier sur imprimante bien sur).


j'espre que j'ai bien expliqué cette fois ,

[SergioMaster]

un peu plus clair

ce n'est pas le Quickreport qu'il faut changer donc , mais le propriétés imprimante par programmation .

Je n'ai jamais changer la taille de papier , mais j'ai déjà changer les bacs ou autres propriétés (duplex etc.. ) donc cela me semble possible

Quelques pistes :

Utiliser l'unité printers

Code :

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

1
2
3
4
5
6
7
 
uses Printers
 
   FPrinter : TPrinter;
 
fprinter := tprinter.Create;
fprinter.PrinterIndex := -1;         // imprimante par défaut

pour mes besoins voici une procedure que j'utilisais / utilise avec D3

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
 
 
const
     BIGSTRING = 10000;
type
  LPBYTE = ^byte;
  PPr_info_2 = ^TPrinterInfo2;
 
  TBinNames = array[ 0..99,0..23] of char;
  PTBinNames = ^TBinNames;
 
procedure TForm1.GetDriverInfo;
var I: Integer;
    FDevice : PChar;
    FDriver : PChar;
    FPort : PChar;
    BinCodes : PChar;
    Bin : PWORD;
    DeviceMode : THandle;
    Driver_info_2 : pDriverinfo2;
    CapBuffer : PChar;
    BinNames : PTBinNames;
    NumCaps : integer;
begin
    Memo2.Clear;
    Memo2.Lines.Add('Impossible d''obtenir les informations');
    if not assigned(fPrinter) then exit;
    GetMem(FDevice, 1000);
    GetMem(FDriver, 1000);
    GetMem(FPort, 1000);
    GetMem(Driver_info_2, 255);
    GetMem(CapBuffer, 10000);
    GetMem( binnames, 2400);
    Printer.GetPrinter(FDevice, FDriver, FPort, DeviceMode);
    // Bin names
    NumCaps := DeviceCapabilities(FDevice, FPort, DC_BINNAMES, CapBuffer, nil);
    copymemory( pointer(binnames), capbuffer, 2400);
    memo2.clear;
    NumCaps :=DeviceCapabilities(FDevice, FPort, DC_BINS,nil, nil);
    GetMem(BinCodes,NumCaps*Sizeof(word));
    // Bin codes
    NumCaps := DeviceCapabilities(FDevice, FPort, DC_BINS,BinCodes, nil);
    for I := 0 to NumCaps-1 do
    begin
       if trim(binnames[i]) <> '' then
         begin
            Bin:=@bincodes[i*Sizeof(Word)];
            memo2.lines.add( binnames[i]+ format( '  >> %d',[bin^]));
         end;
    end;
    FreeMem(Driver_info_2, 255);
    FreeMem(CapBuffer, 10000);
    FreeMem( binnames, 2400);
    FreeMem(FDevice, 1000);
    FreeMem(FDriver, 1000);
    FreeMem(FPort, 1000);
    FreeMem(BinCodes,NumCaps*Sizeof(Word));
end;

pour les tailles de papier ? mais ça doit être de la même veine
DeviceCapabilities
DC_PAPER ou DC_PAPERNAME

ceci pour obtenir les infos , pour changer le papier j'ai vu ce tip ou ce post
rien qu'en un peu avec comme mots clefs "delphi change printer paper "

[newflash]

merci mon ami,

inchallah je vais essayer ,

[newflash]

la meilleur solution est de mettre Usestandarprinter=true.
propriété du quickrep