PrintGetPrinters

Description

Gets the list of available printers.

Syntax

PrintGetPrinters ( )

Returns

String. Each printer is listed in the string in the format printername ~t drivername ~t port ~n.

Usage

The return string can be loaded into a DataWindow using ImportString or separated using the ~n as shown in the example.

Examples

Example 1

This example parses printer names from the return string on the PrintGetPrinters call, then places each printer name in an existing SingleLineEdit control. If you have more printers than SingleLineEdit boxes, the last SingleLineEdit contains a string for all the printers that are not listed in the other SingleLineEdits:

singlelineedit sle

long ll_place, i, k 

string ls_left, ls_prntrs


ls_prntrs  = PrintGetPrinters ( )

k = upperbound(control)

FOR i= k to 1  STEP -1  

   IF parent.control[i].typeof()=singlelineedit! then

      sle=parent.control[i]   

      ll_place=pos (ls_prntrs, "~n" ) 

      ls_left = Left (ls_prntrs, ll_place - 1)

      sle.text = ls_left

      ls_prntrs = Mid (ls_prntrs, ll_place + 1)

   END IF

NEXT

sle.text = ls_prntrs

See also