Foxpro 2.6 doesn't have a APRINTER function. Thanks any ways.
Charles
>>How can I get the printer information from win3.1 "With OUT getting it from the API call GetProfileString". This application will be on Win 3.1, Win 95 and Win NT. On Win3.1 and 95 I can get the printers from the win.ini, but it would be nice if there was another dll that would return it to me with out having to check if NT or not. I don't even know where the printer info is stored in NT. Most likely the registry.
>>
>>Charles
>
>
>
>
>Function ShowPrt
>NumPrinters = Aprinter(cPrinterArray)
>
>IF NumPrinters = 0
> messagebox("No Printer installed in current system!")
>ELSE
> DefaultPrinter = SET("Printer", 2)
> msgPrinter = "Printer Information:" + REPL(Chr(13),2)
> For iX = 1 to NumPrinters
> if Upper(cPrinterArray[iX,1]) = DefaultPrinter
> msgPrinter = msgPrinter + cPrinterArray[iX,1] + Repl(Chr(9),2) + "[Default]" + chr(13)
> else
> msgPrinter = msgPrinter + cPrinterArray[iX,1] + chr(13)
> endif
> EndFor
> Messagebox(msgPrinter, 64, _screen.caption + " - ShowPrt Function")
>ENDIF
>
>EndFunc
>
>
>
>
>If you are using VFP 6, you can use Set("Printer", 3) to see which printer is
>user current select!!
Charles
"The code knows no master." - Chuck Mautz
"Everybody is ignorant, only on different subjects." - Will Rogers