home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 September / PCWorld_2001-09_cd.bin / Software / Topware / fprint / fpdk400.exe / samples / vb6 / FPattr.frm < prev    next >
Text File  |  1999-10-04  |  3KB  |  99 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. End
  22. Attribute VB_Name = "FPattributes"
  23. Attribute VB_GlobalNameSpace = False
  24. Attribute VB_Creatable = False
  25. Attribute VB_PredeclaredId = True
  26. Attribute VB_Exposed = False
  27. Private Sub btnClose_Click()
  28.     Unload Me
  29. End Sub
  30.  
  31. Private Sub Form_Load()
  32.     Dim result As Long
  33.     Dim szFinePrinter As String
  34.     Dim hfp As Long
  35.     Dim dwDlg As Long
  36.     Dim intAttr As Integer
  37.     Dim lngAttr As Integer
  38.     Dim bAttr As Boolean
  39.     Dim strAttr As String
  40.     Dim lenAttr As Long
  41.     
  42.     szFinePrinter = vbNullString
  43.     
  44.     result = fpOpen(szFinePrinter, hfp)
  45.     If result <> 0 Then
  46.         MsgBox "FinePrint Error: " & ErrorText(result)
  47.         Exit Sub
  48.     End If
  49.         
  50.     intAttr = 0
  51.     lenAttr = Len(intAttr)
  52.     result = fpGetLayoutAttr(hfp, eliLayout, intAttr, lenAttr)
  53.     Me.Print "Layout: " & LayoutTypes(intAttr)
  54.     
  55.     intAttr = 0
  56.     lenAttr = Len(intAttr)
  57.     result = fpGetLayoutAttr(hfp, eliBorders, intAttr, lenAttr)
  58.     Me.Print "Borders: " & BorderTypes(intAttr)
  59.     
  60.     bAttr = False
  61.     lenAttr = Len(bAttr)
  62.     result = fpGetLayoutAttr(hfp, eliOrder, bAttr, lenAttr)
  63.     Me.Print "Order: " & OrderTypes(bAttr)
  64.     
  65.     strAttr = Space(80)
  66.     lenAttr = Len(strAttr)
  67.     result = fpGetLayoutAttr(hfp, eliStationery, ByVal strAttr, lenAttr)
  68.     Me.Print "Stationery: " & Left(strAttr, result - 1)
  69.     
  70.     strAttr = Space(80)
  71.     lenAttr = Len(strAttr)
  72.     result = fpGetLayoutAttr(hfp, eliForm, ByVal strAttr, lenAttr)
  73.     If Trim(Left(strAttr, result - 1)) = "" Then
  74.         Me.Print "Form: <None>"
  75.     Else
  76.         Me.Print "Form: " & Left(strAttr, result - 1)
  77.     End If
  78.     
  79.     strAttr = Space(80)
  80.     lenAttr = Len(strAttr)
  81.     result = fpGetLayoutAttr(hfp, eliDestPrinter, ByVal strAttr, lenAttr)
  82.     Me.Print "Destination printer: " & Left(strAttr, result - 1)
  83.     
  84.     lenAttr = Len(intAttr)
  85.     result = fpGetLayoutAttr(hfp, eliMargins, intAttr, lenAttr)
  86.     Me.Print "Margins: " & MarginTypes(intAttr)
  87.     
  88.     bAttr = False
  89.     lenAttr = Len(bAttr)
  90.     result = fpGetLayoutAttr(hfp, eliDuplex, bAttr, lenAttr)
  91.     Me.Print "Duplex: " & bAttr
  92.     
  93.     lenAttr = Len(lngAttr)
  94.     result = fpGetLayoutAttr(hfp, eliCopies, lngAttr, lenAttr)
  95.     Me.Print "Copies: " & Unsigned2Signed(lngAttr)
  96.     
  97.     result = FpClose(hfp, False)
  98. End Sub
  99.