Announcement

**Paul Purvis** · 9 Oct 2009, 10:42 PM

2nd much better program
made a small correction in the first
xprint cancel before xprint close, works great for getting the fax windows printer setting

this program just grew and grew, one function is written in totally funk.
but it works, i just could not figure out how to display my results

if there is anything else to add let me know, but i hope that you have the code to get the info on the printer.
you are going to want to forget about the first program after you see this one.

Code:

'wprtpaper.bas
'program acquires windows only device printer paper types and trays
'compiled with powerbasic pbwin9.02
'
#PBFORMS CREATED V1.51
'------------------------------------------------------------------------------
' The first line in this file is a PB/Forms metastatement.
' It should ALWAYS be the first line of the file. Other
' PB/Forms metastatements are placed at the beginning and
' end of "Named Blocks" of code that should be edited
' with PBForms only. Do not manually edit or delete these
' metastatements or PB/Forms will not be able to reread
' the file correctly.  See the PB/Forms documentation for
' more information.
' Named blocks begin like this:    #PBFORMS BEGIN ...
' Named blocks end like this:      #PBFORMS END ...
' Other PB/Forms metastatements such as:
'     #PBFORMS DECLARATIONS
' are used by PB/Forms to insert additional code.
' Feel free to make changes anywhere else in the file.
'------------------------------------------------------------------------------

#COMPILE EXE
#DIM ALL

'------------------------------------------------------------------------------
'   ** Includes **
'------------------------------------------------------------------------------
#PBFORMS BEGIN INCLUDES
#IF NOT %DEF(%WINAPI)
    #INCLUDE "WIN32API.INC"
#ENDIF
#INCLUDE "PBForms.INC"
#PBFORMS END INCLUDES
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Constants **
'------------------------------------------------------------------------------
#PBFORMS BEGIN CONSTANTS
%IDD_DIALOG1  =  101
%IDC_TEXTBOX1 =  999
%IDC_BUTTON1  = 1001
%IDC_BUTTON2  = 1002
%iDC_BUTTON5  = 1005
#PBFORMS END CONSTANTS

GLOBAL gstextbox AS STRING
GLOBAL gstextboxold AS STRING
GLOBAL gstemp AS STRING
GLOBAL gltemp AS LONG
GLOBAL gltemp2 AS LONG
GLOBAL hDlg   AS DWORD

'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Declarations **
'------------------------------------------------------------------------------
DECLARE CALLBACK FUNCTION ShowDIALOG1Proc()
DECLARE FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG

FUNCTION getprinterpapertypes() AS LONG
   LOCAL stemp0 AS STRING
   LOCAL stemp1 AS STRING
   LOCAL stemp2 AS STRING
   LOCAL stemp3 AS STRING
   LOCAL stemp4 AS STRING
   LOCAL stemp5 AS STRING
   LOCAL stemp6 AS STRING
   LOCAL stemp7 AS STRING
   LOCAL stemp8 AS STRING
   LOCAL stemp9 AS STRING
   LOCAL stemp10 AS STRING
   LOCAL stemp11 AS STRING
   LOCAL stemp12 AS STRING
   LOCAL stemp13 AS STRING

   LOCAL i AS LONG
   LOCAL j AS LONG
   LOCAL k AS LONG
   LOCAL lcopycount AS LONG
   LOCAL llines AS LONG
   LOCAL lorientation AS LONG
   LOCAL lduplexstatus AS LONG
   LOCAL lpaper AS LONG
   LOCAL ltray AS LONG
   LOCAL lquality AS LONG
   LOCAL sprintername AS STRING
   
   LOCAL xWidth!,xHeight!,xLeft!, xTop!, xRight!, xBottom!, x&,y&

     REM get the previous text on the screen and format it before adding the new printer's info
       CONTROL GET TEXT HDLG,%IDC_TEXTBOX1 TO gstextbox
       gstextbox=TRIM$(gstextbox)
       REM remove extra blank LINES AND ANY spaces prior AND after ANY CRLF
       WHILE INSTR(gstextbox, " "+$CRLF)
          REPLACE " "+$CRLF WITH $CRLF IN gstextbox
       WEND
       WHILE INSTR(gstextbox, $CRLF+" ")
          REPLACE $CRLF+" " WITH $CRLF IN gstextbox
       WEND
       WHILE INSTR(gstextbox, $CRLF+$CRLF)
        REPLACE $CRLF+$CRLF WITH $CRLF IN gstextbox
       WEND
       IF gstextbox=$CRLF THEN gstextbox=""
       REM CRLF FROM the beginning OF the TEXTBOX IF it exist
       IF LEN(gstextbox)>1 THEN
         IF LEFT$(gstextbox,2)=$CRLF THEN
            gstextbox=RIGHT$(gstextbox,LEN(gstextbox)-2)
         END IF
       END IF

   REM get the selected printers info- paper types and paper trays
   ERRCLEAR
   XPRINT ATTACH CHOOSE
   IF ERR OR XPRINT$="" THEN
     MSGBOX "No printer choosen",%MB_OK,"Message"
   EXIT FUNCTION
   END IF
   sprintername=XPRINT$
   REM get the demographics from the printer
   ERRCLEAR
   XPRINT GET PAPERS TO stemp1
   IF ERR THEN stemp1=""
   ERRCLEAR
   XPRINT GET TRAYS  TO stemp2
   IF ERR THEN stemp2=""
   ERRCLEAR
   XPRINT GET CLIENT TO xwidth!,xheight! 'get the printable width and height
   IF ERR THEN  xwidth!=0!:xheight!=0!
   ERRCLEAR
   XPRINT GET MARGIN TO xleft!, xtop!, xright!, xbottom! 'margins
   IF ERR THEN xleft!=0!:xtop!=0!:xright!=0!:xbottom!=0!
   ERRCLEAR
   XPRINT GET PPI TO x&,y& 'pixels per inch
   IF ERR THEN x&=0&:y&=0&
   ERRCLEAR
   XPRINT GET LINES TO llines
   IF ERR THEN llines=-1
   ERRCLEAR
   XPRINT GET COPIES TO lcopycount
   IF ERR THEN lcopycount=-1
   ERRCLEAR
   XPRINT GET ORIENTATION TO lorientation
   IF ERR THEN lorientation=-1
   ERRCLEAR
   XPRINT GET QUALITY TO lquality
   IF ERR THEN lquality=-1
   ERRCLEAR
   XPRINT GET DUPLEX TO lduplexstatus
   IF ERR THEN lduplexstatus=-1
   ERRCLEAR
   XPRINT GET PAPER TO lpaper
   IF ERR THEN lpaper=-1
   ERRCLEAR
   XPRINT GET TRAY TO ltray
   IF ERR THEN ltray=-1

   XPRINT CANCEL 'cancel so printer wont try to print just now
   XPRINT CLOSE





                  
   stemp4="points per inch  x="+TRIM$(STR$(x&))+"  y="+TRIM$(STR$(y&))+$CRLF+_
          "---------------------------end of resolution------------------------------------"+$CRLF+_
          "margins in inches left="+TRIM$(STR$(xleft!/x&))+"  right="+TRIM$(STR$(xright!/x&))+"  top="+TRIM$(STR$(xtop!/y&))+"  bottom="+TRIM$(STR$(xBottom!/y&))+$CRLF+_
          "margins in points left="+TRIM$(STR$(xleft!))+"  right="+TRIM$(STR$(xright!))+"  top="+TRIM$(STR$(xtop!))+"  bottom="+TRIM$(STR$(xBottom!))+$CRLF+_
          "printable size in inches width="+TRIM$(STR$(xwidth!/x&))+"  height="+TRIM$(STR$(xheight!/y&))+$CRLF+_
          "printable size in points width="+TRIM$(STR$(xwidth!))+"  height="+TRIM$(STR$(xheight!))+$CRLF+_
          "computed paper size = "+TRIM$(STR$((xwidth!/x&)+((xleft!+xright!)/x&)))+" x "+TRIM$(STR$((xheight!/y&)+ ((xtop!+xBottom!)/y&) ))+$CRLF+_
          "---------------------------end of dimensions------------------------------------"
          
  
    IF llines >=1 THEN
       stemp5="Lines per page    is "+TRIM$(STR$(llines))
       ELSE
       stemp5="Lines per page     is unknown"
    END IF
    IF lcopycount >=1 THEN
        stemp6="Copies to make    is "+TRIM$(STR$(lcopycount))
        ELSE
        stemp6="Copies to make    is unknown"
    END IF
    IF lorientation >-1 THEN
        stemp7="Print orientation is "+TRIM$(STR$(lorientation))+" usual 1=portrait 2=landscape"
        ELSE
        stemp7="Print orientation is unknown"
    END IF
    IF lquality >-1 THEN
        stemp8="Print quality     is "+TRIM$(STR$(lquality))+" usual 1=draft  2=low  3=medium  4=high"
        ELSE
        stemp8="Print quality     is unknown"
    END IF
    IF lduplexstatus >-1 THEN
        stemp9="Duplex setting    is "+TRIM$(STR$(lduplexstatus))+" usual 1=oneside 2=flip on vertical edge 3=flip on horiz. edge"
        ELSE
        stemp9="Duplex setting    is unknown"
    END IF
    
    
    IF lpaper<0& THEN
      stemp10="Paper type        is unknown"
      ELSE
      j=PARSECOUNT(stemp1,",")
      DIM a(1 TO j) AS STRING
      PARSE stemp1, a(),","
      FOR i=1 TO J-1 STEP 2
         a(i)=TRIM$(a(i))
         IF a(i)=TRIM$(STR$(lpaper)) THEN stemp10="Paper type        is "+a(i)+" "+a(i+1):EXIT FOR
      NEXT i
    END IF
   
    stemp11=""
      IF lpaper>-1 THEN
         k=0&
         FOR i=1 TO J-1 STEP 2
           IF LEN(a(i+1)) >=K THEN K=LEN(a(i+1))
         NEXT i
         FOR i=1 TO J-1 STEP 2
           a(i+1)=LEFT$(a(i+1)+STRING$(K+3," "),K+3)
        NEXT i
        stemp0=""
        FOR i=1 TO J-1 STEP 2
          stemp0=stemp0+RIGHT$("      "+a(i),6)+"="+a(i+1)
          IF LEN(stemp0)>70 THEN stemp11=stemp11+RTRIM$(stemp0)+$CRLF:stemp0=""
        NEXT i
        stemp11=stemp11+stemp0+$CRLF+"---------------------------end of paper type listing----------------------------"
        
    END IF
   
    IF ltray<0& THEN
      stemp12="Paper tray        is unknown"
      ELSE
      j=PARSECOUNT(stemp2,",")
      DIM b(1 TO j) AS STRING
      PARSE stemp2, b(),","
      FOR i=1 TO J-1 STEP 2
        b(i)=TRIM$(b(i))
        IF b(i)=TRIM$(STR$(ltray))   THEN stemp12="Paper tray        is "+b(i)+" "+b(i+1):EXIT FOR
      NEXT i
      END IF


      stemp13=""
      IF ltray>-1 THEN
         k=0&
         FOR i=1 TO J-1 STEP 2
           IF LEN(b(i+1)) >=K THEN K=LEN(b(i+1))
         NEXT i
         FOR i=1 TO J-1 STEP 2
           b(i+1)=LEFT$(b(i+1)+STRING$(K+3," "),K+3)
        NEXT i
        stemp0=""
        FOR i=1 TO J-1 STEP 2
          stemp0=stemp0+RIGHT$("      "+b(i),6)+"="+b(i+1)
          IF LEN(stemp0)>70 THEN stemp13=stemp13+RTRIM$(stemp0)+$CRLF:stemp0=""
        NEXT i
        stemp13=stemp13+stemp0+$CRLF+"---------------------------end of paper tray listing----------------------------"
      END IF
 
       gstextbox=STRING$(80,"=")+$CRLF+"Printer name - "+sprintername+$CRLF+STRING$(80,"=")+$CRLF+_
              stemp5+$CRLF+stemp6+$CRLF+stemp7+$CRLF+stemp8+$CRLF+stemp9+$CRLF+_
              stemp10$+$CRLF+stemp12+$CRLF+"---------------------------end of current settings------------------------------"+$CRLF+_
              stemp4+$CRLF+stemp11+$CRLF+_
              stemp13+$CRLF+gstextbox
    
      WHILE INSTR(gstextbox, $CRLF+$CRLF)
        REPLACE $CRLF+$CRLF WITH $CRLF IN gstextbox
       WEND
    
    CONTROL SET TEXT HDLG,%IDC_TEXTBOX1, gstextbox
    CONTROL SET FOCUS hDlg, %IDC_TEXTBOX1
END FUNCTION


#PBFORMS DECLARATIONS
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Main Application Entry Point **
'------------------------------------------------------------------------------
FUNCTION PBMAIN()
    gstextbox=""
    ShowDIALOG1 %HWND_DESKTOP
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** CallBacks **
'------------------------------------------------------------------------------
CALLBACK FUNCTION ShowDIALOG1Proc()

    SELECT CASE AS LONG CBMSG
        CASE %WM_INITDIALOG
            ' Initialization handler
            CONTROL SET FOCUS hDlg, %IDC_TEXTBOX1

          CASE %WM_NCACTIVATE
            STATIC hWndSaveFocus AS DWORD
            IF ISFALSE CBWPARAM THEN
                ' Save control focus
                hWndSaveFocus = GetFocus()
            ELSEIF hWndSaveFocus THEN
                ' Restore control focus
                SetFocus(hWndSaveFocus)
                hWndSaveFocus = 0
            END IF

        CASE %WM_COMMAND
            ' Process control notifications
            SELECT CASE AS LONG CBCTL
                CASE %IDC_TEXTBOX1

                CASE %IDC_BUTTON1
                REM  GET papertypes FROM printer
                IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                        getprinterpapertypes()
                    END IF

                 CASE %IDC_BUTTON2
                 REM CLEAR the TEXT IN textbox1
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                       CONTROL SET TEXT HDLG,%IDC_TEXTBOX1, ""
                       CONTROL SET FOCUS hDlg, %IDC_TEXTBOX1
                    END IF

                   CASE %IDC_BUTTON5
                   REM send text to clipboard
                    IF CBCTLMSG = %BN_CLICKED OR CBCTLMSG = 1 THEN
                    CONTROL GET TEXT HDLG,%IDC_TEXTBOX1 TO gstemp
                    IF gstemp<>"" THEN
                      FOR gltemp=1& TO 100&
                        CLIPBOARD RESET, gltemp2
                        IF gltemp2 THEN EXIT FOR
                        SLEEP 20
                      NEXT gltemp
                      FOR gltemp=1 TO 100&
                        CLIPBOARD SET TEXT gstemp,gltemp2
                        IF gltemp2 THEN EXIT FOR
                       SLEEP 30
                      NEXT gltemp
                      CONTROL SET FOCUS hDlg, %IDC_TEXTBOX1
                    END IF
                    END IF

         END SELECT
    END SELECT
END FUNCTION
'------------------------------------------------------------------------------

'------------------------------------------------------------------------------
'   ** Dialogs **
'------------------------------------------------------------------------------
FUNCTION ShowDIALOG1(BYVAL hParent AS DWORD) AS LONG
    LOCAL lRslt  AS LONG

#PBFORMS BEGIN DIALOG %IDD_DIALOG1->->
 '   LOCAL hDlg   AS DWORD
    LOCAL hFont1 AS DWORD

    DIALOG NEW hParent, "Retreive paper types and trays from a windows printer", _
        42, 47, 645, 270, %WS_POPUP OR %WS_BORDER OR %WS_DLGFRAME OR _
        %WS_SYSMENU OR %WS_MINIMIZEBOX OR %WS_CLIPSIBLINGS OR %WS_VISIBLE OR _
        %DS_MODALFRAME OR %DS_3DLOOK OR %DS_NOFAILCREATE OR %DS_SETFONT, _
        %WS_EX_CONTROLPARENT OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
        %WS_EX_RIGHTSCROLLBAR, TO hDlg
    CONTROL ADD TEXTBOX, hDlg, %IDC_TEXTBOX1, "", 0, 26, 645, 239, %WS_CHILD _
        OR %WS_VISIBLE OR %WS_HSCROLL OR %WS_VSCROLL OR _
        %ES_LEFT OR %ES_MULTILINE OR %ES_AUTOHSCROLL OR %ES_AUTOVSCROLL OR _
        %ES_WANTRETURN,  %WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR _
        %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR
    CONTROL ADD BUTTON,  hDlg, %IDC_BUTTON1, "Select printer to get " + _
        "available paper types and trays", 10, 5, 200, 15,_
           %WS_CHILD OR %WS_VISIBLE OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    CONTROL ADD BUTTON,  hDlg, %IDC_BUTTON2, "Clear all", 450, 5, 36, 15,_
            %WS_CHILD OR %WS_VISIBLE OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    CONTROL ADD BUTTON,  hDlg, %IDC_BUTTON5, "Send text to clipboard", 250, 5, 100, 15,_
           %WS_CHILD OR %WS_VISIBLE OR %BS_TEXT OR %BS_PUSHBUTTON OR %BS_CENTER OR %BS_VCENTER, %WS_EX_LEFT OR %WS_EX_LTRREADING
    hFont1 = PBFormsMakeFont("Courier", 10, 400, %FALSE, %FALSE, %FALSE, _
        %ANSI_CHARSET)

    CONTROL SEND hDlg, %IDC_TEXTBOX1, %WM_SETFONT, hFont1, 0
#PBFORMS END DIALOG
    DIALOG SHOW MODAL hDlg, CALL ShowDIALOG1Proc TO lRslt

#PBFORMS BEGIN CLEANUP %IDD_DIALOG1
    DeleteObject hFont1
#PBFORMS END CLEANUP

    FUNCTION = lRslt
END FUNCTION
'------------------------------------------------------------------------------

Attached Files

WPRTPAPR.ZIP (36.3 KB, 19 views)

Announcement

Get Windows printer properties(trays and paper types) into a textbox

Get Windows printer properties(trays and paper types) into a textbox

Comment