Vérifier si imprimante existe

**nou366** · 18/06/2006, 13h05

Bonjour à tous,

J'ai une petite question, qui assez urgente .
J'utilise une imprimante virtuelle (pdfCreator) pour convertir un rapport en pdf.
Je voudrais mettre une petite vérification avant d'imprimer

If (pdfCreator n'est pas l'imprimante par défaut ) then showmessage
('Veuillez séléctionner pdfCreator')

J'ai regardé dans le forum.
Je vois qu'on parle de "Printer.Printers[Printer.PrinterIndex]", mais je sais pas ou est Printer, et comment l'utiliser.

C'est pour mon projet de demain

un grand merci à tous

**cadetill** · 18/06/2006, 13h34

Salut

Je normalement utilise un .ini pour estoquer le nom de la imprimante et je utilise une fonction comme ça pour la utiliser

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
 
uses Printers;
 
....
 
procedure TCustomRptRpt.SetPrinter(const Section, Key: string);
var
  Ini: TIniFile;
  Imp : string;
  i : integer;
begin
  Ini.NameExe := Application.ExeName;
  Ini := TIniFile.Create('monIniFile');
  try
    Imp := Ini.ReadString(Section, key, 'ERROR');
  finally
    FreeAndNil(Ini);
  end;
 
  if Imp <> 'ERROR' then
  begin
    // on cherche l'imprimante
    for i := 0 to Printer.Printers.Count - 1 do
      if Pos(Imp, Printer.Printers[i]) <> 0 then
      begin
        // on assigne la imprimante au QR
        Report.PrinterSettings.PrinterIndex := i;
        Break;
      end;
  end;
end;