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!

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

Default printer

Status
Not open for further replies.

ZooMoo

IS-IT--Management
May 16, 2002
11
TH
Look at this init method of combobox mr.

printernumber = APRINTERS( arrayprinters )
for i = 1 to printernumber
this.additem( arrayprinters( i, 1 ) )
next

this.vaule = [Default Printer]

How to know what a default printer's name

thk adv.
 
HI
1.
IF APRINTERS(laPrinters) > 0
CREATE CURSOR printers (Names C(254))
APPEND FROM ARRAY laPrinters
WITH Thisform.combo1
.Rowsource = PRINTERS.Names
.RowSourceType = 6
ENDWITH
ELSE
MESSAGEBOX("No Printers Installed")
ENDIF

2. Default printer can be found with
lcDefaultPrinter = SET("PRINTER",3)

:)

____________________________________________
ramani - (Subramanian.G) :)
When you ask VFP questions, please add VFP version.
 
? set("PRINTER",3)

Ali Koumaiha
TeknoSoft Inc
Farmington Hills, Michigan
 
Ramani, i see you beat me to it.. :)

Ali Koumaiha
TeknoSoft Inc
Farmington Hills, Michigan
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top