I was just found that out and was wondering how i could find the printername
with out useing
Names := Printer.Printers;
Name := Names[Printer.printerindex]
which was giving me the error when this wonderfull code arrivied. :)
Thanks Patrick
James.
Quoting Patrick Dunford <[EMAIL PROTECTED]>:
> In the application I wrote, I used this code to read the printer name
>
> GetMem(PrinterName,32);
> Temp:=\'\';
> try
> SysReg:=TRegistry.Create;
> SysReg.RootKey:=HKEY_CURRENT_CONFIG;
>
> SysReg.OpenKey(\'System\\CurrentControlSet\\Control\\Print\\Printers\',False);
> Temp:=SysReg.ReadString(\'Default\');
> except
> end;
> if Temp<>\'\'
> then PrinterName:=PChar(Temp);
>
> POpenRes:=OpenPrinter(PrinterName,PrinterHandle,nil);
>
> In this case the printer name in the Registry is \"HP LaserJet 4L\"
>
> Sometimes you see names in the format \"HP LaserJet 4L on LPT2:\" and it may
> be that this is an incorrect format. Check to see what you are getting. My
> guess is that the name is of an icon in the Printers folder in Control
> Panel.
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> > Behalf Of [EMAIL PROTECTED]
> > Sent: Wednesday, 2 June 1999 15:46
> > To: Multiple recipients of list delphi
> > Subject: RE: [DUG]: Counting pages printed- problem with openprinter
> >
> >
> > I have the following code to get the handle for the printer but i
> > just the
> > error \\\"paramaters are incorrect\\\". Any ideas as to what
> > paramater in incorrect
> > and why?
> >
> snip
>
> ============================================
> Patrick Dunford, Christchurch, NZ
> http://patrick.dunford.com/
>
> ---------------------------------------------------------------------------
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
-----------------------------------------------------
This mail sent through IMP: http://web.horde.org/imp/
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
