Discussion :

[Harry]

Bonjour,

Chez l'un de mes clients j'ai un problème : lors de l'utilisation d'un état Quickreport avec le composant ReportPrinterDialog j'ai un message de violation d'accès, le truc c'est que le meme executable fonctionne avec les memes données et les memes états (docs) sur un autre PC en réseau, c'est donc un pb specifique à un poste : quesqui pourrait sur une becane provoquer ce genre d'erreurs, le reste du prog semble fonctionner sans pb?

Details : en PrintReport ca donne 'Violation d'accès à l'adresse blabla dans le module 'Nomdel'exe' ecriture à l'adresse blabla' et pas d'impression.

en PreviewReport la fenêtre de preview s'affiche, elle est grise (meme pas la page blanche).
En bas de la preview on a 0% page 1 of 1' .
Il n'y a pas d'erreur sur le coup mais au moment de quitter la preview : 'violation d'accès à l'adresse 00000000. Lecture de l'adresse 00000000'.

Voila, j'espere que ca inspirera des souvenirs a quelqu'un.

Merci, A++

[fs999]

Salut,

On dirait que ton imprimante par défaut a un problème. Voici une fonction qui permet de savoir si ton imprimante est prête :

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
function IsPrinterAvailable(Index: Integer): Boolean;
var
  DC: THandle;
  StructCnt: DWORD;
  PrinterInfo: PPrinterInfo2;
  PrinterDefaults: TPrinterDefaults;
begin
  with PrinterDefaults do
  begin
    DesiredAccess := PRINTER_ACCESS_USE;
    pDatatype := nil;
    pDevMode := nil;
  end;
  if Printer.Printing then
  begin
    Result := True;
    exit;
  end;
  Result := False;
  if (Printer.Handle = 0) or (Index < 0) then exit;
 
  DC := 0;
  GetMem(PrinterInfo, 0);
 
  try
    try
      {if Index = Printer.PrinterIndex then
        DC := Printer.Handle
      else}
      if not OpenPrinter(PChar(Printer.Printers[Index]), DC, @PrinterDefaults) then exit;
 
      StructCnt := 0;
      WinSpool.GetPrinter(DC, 2, nil, 0, @StructCnt);
      ReAllocMem(PrinterInfo, StructCnt);
 
      if WinSpool.GetPrinter(DC, 2, PrinterInfo, StructCnt, @StructCnt) then
        Result := PrinterInfo.Status <> PRINTER_STATUS_NOT_AVAILABLE;
    except
    end;
  finally
    FreeMem(PrinterInfo);
    if (DC <> 0) then ClosePrinter(DC);
  end;
end;

A+

[Harry]

Ok, je vais tester ca, soit par ton exemple de code, soit en changeant d'imprimante par defaut.

Merci, je vous tiens au courant.

[Harry]

On a testé avec une autre imprimante par defaut, c'est pareil.

Je cherche toujours

Edit : Certains documents simples s'impriment bien, donc a priori ca ne vient pas de l'imprimante.
Edit2 : Ca semble arriver lorsque les 'Etats' utilisent plusieurs tables liés, et pas lorsque les Etats n'utilisent qu'une seule table.

[Harry]

J'ai fait le petit prog pour tester les imprimantes et ils repondent bien.
De plus certains documents simples s'impriment bien.

Par contre ca ne semble pas etre lié avec le fait qu'il y ait ds tables liés dans le doc.

[Harry]

TROUVE : Dans le 'AfterReportLoaded' du compo 'ReportPrinterDialog' J'integre par prog une photo dans un composant existant sur le document.

Euh bien la photo (logo du client dans ce cas) était trop gros, néanmoins la meme photo sur une autre becane passe.
Mais c'est vrai que c'etait une grosse photo qui devait etre ecrasé dans une toute petite case, ca a du déborder une memoire quelqupart...

On a redimmensionné la photo avec Photoshop et ca marche.

Euh bien, je me suis fait des sueurs froides pendeant une semaine pour pas grand chose finalement.


Merci fs999 pour ton bout de code, ce sera surement utile une autre fois.

et A++