Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Default Printer, Other Printers, Changing

Printers

Default Printer, Other Printers, Changing

by  jimoo  Posted    (Edited  )
* get default printer
lcDefaultPrinter = SET("PRINTER",3)

* use APRINTERS() to determine what printer you have.
IF APRINTERS(gaPrinters) > 0
* there is one installed
CREATE CURSOR myPrinters (Name C(60))
APPEND FROM ARRAY gaPrinters
BROW
ELSE
* No printer installed
MESSAGEBOX('No printers installed.')
ENDIF

* set the printer to a new printer
lcOutputPrinter = [from the cursor: myCursor]
SET PRINTER TO NAME (lcOutputPrinter)

* when done - reset default printer
SET PRINTER TO NAME (lcDefaultPrinter)
Register to add this FAQ to your archive
Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top