[Harbour] Printer list

[Guillermo Varona Silupú]

Thank very much Francesco, That's what I needed!

Best Regards
GVS

Francesco Saverio Giudice escribió:
> Hi Guillermo,
>
> Use:
>
> lFullDetails   := TRUE
> lLocalPrinters := FALSE
> aPrinters      := GETPRINTERS( lFullDetails, lLocalPrinters )
>
> in aPrinters you will find:
>
> { ;
>   { "Printer Full Name 1", "Port Name", "LOCAL" | "NETWORK", "Driver 
> Name } ,;
> ....
> }
>
> Best Regards
>
> Francesco
>
>
> Il 11/11/2008 18.04, Guillermo Varona Silupú ha scritto:
>> Szakáts Viktor escribió:
>>> Hi,
>>>
>>> Check GETPRINTERS() in hbwin.lib.
>> In this PRG:
>> -----------------------------------------------------------------
>> function main()
>>   setmode(25,80)
>>   aPrn := GETPRINTERS()
>>   cPrn := GetDefaultPrinter()
>>   aPor := PRINTERPORTTONAME()
>>   ? aPrn
>>   wait
>>   return nil
>> -----------------------------------------------------------------
>> I have identified the following functions:
>> aPrn := GETPRINTERS(), give me this:
>> APRN[1] "\\Estudio0393\Epson FX-2180"
>> APRN[2] "\\Estudios0596\HP DesignJet 1055CM by HP"
>> APRN[3] "Xerox Phaser 3420 PCL 6"
>> APRN[4] "PDFCreator"
>> APRN[5] "Microsoft Office Document Image Writer"
>> APRN[6] "Adobe PDF"
>>
>> cPrn := GetDefaultPrinter(), give me this:
>> "Xerox Phaser 3420 PCL 6"
>>
>> aPor := PRINTERPORTTONAME(), give me this:
>> ""
>> What does this function?
>>
>> How can I obtain a list of ports used by printers (aPrn)?
>>
>> TIA
>>
>> Best Regards
>> GVS
>> _______________________________________________
>> Harbour mailing list
>> Harbour at harbour-project.org
>> http://lists.harbour-project.org/mailman/listinfo/harbour
> _______________________________________________
> Harbour mailing list
> Harbour at harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>
>