home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 October / PCWorld_2002-10_cd.bin / Software / Topware / fprint / fpdk400.exe / samples / vb6 / FPattr.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-04  |  2.9 KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form FPattributes 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "FinePrinter attributes"
  5.    ClientHeight    =   3165
  6.    ClientLeft      =   45
  7.    ClientTop       =   345
  8.    ClientWidth     =   3750
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3165
  11.    ScaleWidth      =   3750
  12.    StartUpPosition =   1  'CenterOwner
  13.    Begin VB.CommandButton btnClose 
  14.       Caption         =   "Close"
  15.       Height          =   400
  16.       Left            =   1320
  17.       TabIndex        =   0
  18.       Top             =   2640
  19.       Width           =   1092
  20.    End
  21. Attribute VB_Name = "FPattributes"
  22. Attribute VB_GlobalNameSpace = False
  23. Attribute VB_Creatable = False
  24. Attribute VB_PredeclaredId = True
  25. Attribute VB_Exposed = False
  26. Private Sub btnClose_Click()
  27.     Unload Me
  28. End Sub
  29. Private Sub Form_Load()
  30.     Dim result As Long
  31.     Dim szFinePrinter As String
  32.     Dim hfp As Long
  33.     Dim dwDlg As Long
  34.     Dim intAttr As Integer
  35.     Dim lngAttr As Integer
  36.     Dim bAttr As Boolean
  37.     Dim strAttr As String
  38.     Dim lenAttr As Long
  39.     szFinePrinter = vbNullString
  40.     result = fpOpen(szFinePrinter, hfp)
  41.     If result <> 0 Then
  42.         MsgBox "FinePrint Error: " & ErrorText(result)
  43.         Exit Sub
  44.     End If
  45.         
  46.     intAttr = 0
  47.     lenAttr = Len(intAttr)
  48.     result = fpGetLayoutAttr(hfp, eliLayout, intAttr, lenAttr)
  49.     Me.Print "Layout: " & LayoutTypes(intAttr)
  50.     intAttr = 0
  51.     lenAttr = Len(intAttr)
  52.     result = fpGetLayoutAttr(hfp, eliBorders, intAttr, lenAttr)
  53.     Me.Print "Borders: " & BorderTypes(intAttr)
  54.     bAttr = False
  55.     lenAttr = Len(bAttr)
  56.     result = fpGetLayoutAttr(hfp, eliOrder, bAttr, lenAttr)
  57.     Me.Print "Order: " & OrderTypes(bAttr)
  58.     strAttr = Space(80)
  59.     lenAttr = Len(strAttr)
  60.     result = fpGetLayoutAttr(hfp, eliStationery, ByVal strAttr, lenAttr)
  61.     Me.Print "Stationery: " & Left(strAttr, result - 1)
  62.     strAttr = Space(80)
  63.     lenAttr = Len(strAttr)
  64.     result = fpGetLayoutAttr(hfp, eliForm, ByVal strAttr, lenAttr)
  65.     If Trim(Left(strAttr, result - 1)) = "" Then
  66.         Me.Print "Form: <None>"
  67.     Else
  68.         Me.Print "Form: " & Left(strAttr, result - 1)
  69.     End If
  70.     strAttr = Space(80)
  71.     lenAttr = Len(strAttr)
  72.     result = fpGetLayoutAttr(hfp, eliDestPrinter, ByVal strAttr, lenAttr)
  73.     Me.Print "Destination printer: " & Left(strAttr, result - 1)
  74.     lenAttr = Len(intAttr)
  75.     result = fpGetLayoutAttr(hfp, eliMargins, intAttr, lenAttr)
  76.     Me.Print "Margins: " & MarginTypes(intAttr)
  77.     bAttr = False
  78.     lenAttr = Len(bAttr)
  79.     result = fpGetLayoutAttr(hfp, eliDuplex, bAttr, lenAttr)
  80.     Me.Print "Duplex: " & bAttr
  81.     lenAttr = Len(lngAttr)
  82.     result = fpGetLayoutAttr(hfp, eliCopies, lngAttr, lenAttr)
  83.     Me.Print "Copies: " & Unsigned2Signed(lngAttr)
  84.     result = FpClose(hfp, False)
  85. End Sub
  86.