home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VB_G_PRT / GPDECS.TXT < prev    next >
Encoding:
Text File  |  1994-06-03  |  3.7 KB  |  117 lines
  1. '----------------------------------------------------------------
  2. 'Copyright 1994   Unger Business Systems  All Rights Reserved
  3. 'This code is distributed as shareware.  If you use it, you
  4. 'are required by law to register it.  Please contact Unger
  5. 'Business Systems at 11926 Barrett Brae, Houston, TX 77072-4004
  6. 'or call (713) 498-8517.  Registration fee is $20.00 US
  7. 'See the README.TXT file for more information
  8. '
  9. 'All code, forms, modules, controls, etc. are provided without
  10. 'warranty or liability
  11. '----------------------------------------------------------------
  12.  
  13. 'type declarations used for GenPrinter
  14.  
  15. Type LOGFONT   ' 50 Bytes
  16.    lfHeight As Integer
  17.    lfWidth As Integer
  18.    lfEscapement As Integer
  19.    lfOrientation As Integer
  20.    lfWeight As Integer
  21.    lfItalic As String * 1
  22.    lfUnderline As String * 1
  23.    lfStrikeOut As String * 1
  24.    lfCharSet As String * 1
  25.    lfOutPrecision As String * 1
  26.    lfClipPrecision As String * 1
  27.    lfQuality As String * 1
  28.    lfPitchAndFamily As String * 1
  29.    lfFaceName As String * 32
  30. End Type
  31.  
  32. Type POINTAPI  '4 Bytes
  33.    x As Integer
  34.    y As Integer
  35. End Type
  36.  
  37. '  Logical Pen
  38. Type LOGPEN    '10 Bytes
  39.    lopnStyle As Integer
  40.    lopnWidth As POINTAPI
  41.    lopnColor As Long
  42. End Type
  43.  
  44. Type DEVMODE    ' 68 Bytes
  45.     dmDeviceName As String * 32
  46.     dmSpecVersion As Integer
  47.     dmDriverVersion As Integer
  48.     dmSize As Integer
  49.     dmDriverExtra As Integer
  50.     dmFields As Long
  51.     dmOrientation As Integer
  52.     dmPaperSize As Integer
  53.     dmPaperLength As Integer
  54.     dmPaperWidth As Integer
  55.     dmScale As Integer
  56.     dmCopies As Integer
  57.     dmDefaultSource As Integer
  58.     dmPrintQuality As Integer
  59.     dmColor As Integer
  60.     dmDuplex As Integer
  61.     dmYResolution As Integer
  62.     dmTTOption As Integer
  63. End Type
  64.  
  65. Type DOCINFO    ' 10 Bytes
  66.    cbSize As Integer
  67.    lpszDocName As Long
  68.    lpszOutput As Long
  69. End Type
  70.  
  71. Type RECT   '8 Bytes
  72.    left As Integer
  73.    top As Integer
  74.    right As Integer
  75.    bottom As Integer
  76. End Type
  77.  
  78. Type SIZEAPI  '4 Bytes
  79.    x As Integer
  80.    y As Integer
  81. End Type
  82.  
  83. Type TEXTMETRIC   '31 Bytes
  84.    tmHeight As Integer
  85.    tmAscent As Integer
  86.    tmDescent As Integer
  87.    tmInternalLeading As Integer
  88.    tmExternalLeading As Integer
  89.    tmAveCharWidth As Integer
  90.    tmMaxCharWidth As Integer
  91.    tmWeight As Integer
  92.    tmItalic As String * 1
  93.    tmUnderlined As String * 1
  94.    tmStruckOut As String * 1
  95.    tmFirstChar As String * 1
  96.    tmLastChar As String * 1
  97.    tmDefaultChar As String * 1
  98.    tmBreakChar As String * 1
  99.    tmPitchAndFamily As String * 1
  100.    tmCharSet As String * 1
  101.    tmOverhang As Integer
  102.    tmDigitizedAspectX As Integer
  103.    tmDigitizedAspectY As Integer
  104. End Type
  105.  
  106. 'external declarations used in VBGPRINT
  107. Declare Sub agCopyDataBynum Lib "Apiguide.dll" Alias "agCopyData" (ByVal source&, ByVal dest&, ByVal nCount%)
  108. Declare Function agGetAddressForObject& Lib "Apiguide.dll" (object As Any)
  109. Declare Function agGetAddressForLPSTR& Lib "Apiguide.dll" Alias "agGetAddressForObject" (ByVal lpstring$)
  110. Declare Function agGetAddressForVBString& Lib "Apiguide.dll" (vbstring$)
  111. Declare Function agGetSTringFromLPSTR$ Lib "Apiguide.dll" (ByVal lpstring$)
  112. Declare Function agDeviceCapabilities& Lib "Apiguide.dll" (ByVal hlib%, ByVal lpszDevice$, ByVal lpszPort$, ByVal fwCapability%, ByVal lpszOutput&, ByVal lpdm&)
  113. Declare Function agExtDeviceMode% Lib "Apiguide.dll" (ByVal hWnd%, ByVal hDriver%, ByVal lpdmOutput&, ByVal lpszDevice$, ByVal lpszPort$, ByVal lpdmInput&, ByVal lpszProfile&, ByVal fwMode%)
  114. Declare Function GetProfileString% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName As Any, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%)
  115. Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule%)
  116.  
  117.