home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBPRINT / VBPRINT.ZIP / MODULE1.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-07-22  |  2.7 KB  |  39 lines
  1. ' COPYRIGHT:
  2. '
  3. '   (C) Copyright Microsoft Corp. 1993.  All rights reserved.
  4. '
  5. '   You have a royalty-free right to use, modify, reproduce and
  6. '   distribute the Sample Files (and/or any modified version) in
  7. '   any way you find useful, provided that you agree that
  8. '   Microsoft has no warranty obligations or liability for any
  9. '   Sample Application Files which are modified.
  10. '
  11. ' Print DLL Function Declarations
  12.  
  13.     Declare Function InitializePrinter Lib "vbprint.dll" (ByVal hWnd%) As Integer
  14.     Declare Function PrinterSetup Lib "vbprint.dll" (ByVal hWnd%) As Integer
  15.     Declare Function PageLayoutSetup Lib "vbprint.dll" (ByVal nTop%, ByVal nRight%, ByVal nBottom%, ByVal nLeft%) As Integer
  16.     Declare Function DonePrinting Lib "vbprint.dll" () As Integer
  17.     Declare Function StartParagraph Lib "vbprint.dll" (ByVal szFontName$, ByVal nFontSize%, ByVal nStyle%) As Integer
  18.     Declare Function FinishParagraph Lib "vbprint.dll" () As Integer
  19.     Declare Function PrintHeadline Lib "vbprint.dll" (ByVal szHeadLine$, ByVal szFontName$, ByVal nFontSize%, ByVal nStyle%) As Integer
  20.     Declare Function ParagraphText Lib "vbprint.dll" (ByVal szText$) As Integer
  21.     Declare Function EjectPage Lib "vbprint.dll" () As Integer
  22.     Declare Function PrintDLLVersion Lib "vbprint.dll" () As Integer
  23.     Declare Function SetParagraphSpacing Lib "vbprint.dll" (ByVal nSpacingBefore%, ByVal nSpacingAfter%) As Integer
  24.     Declare Function SetUpColumns Lib "vbprint.dll" (ByVal Columns%, nC As Any, ByVal szFontName$, ByVal nFontSize%, ByVal nStyle%) As Integer
  25.     Declare Function PrintColumnText Lib "vbprint.dll" (ByVal szText$) As Integer
  26.     Declare Function EndColumnPrinting Lib "vbprint.dll" () As Integer
  27.     Declare Function PrintColumnHeaders Lib "vbprint.dll" (ByVal szHeader$, ByVal Columns%, nC As Any, ByVal szFontName$, ByVal nFontSize%, ByVal nStyle%) As Integer
  28.     Declare Function KillJob Lib "vbprint.dll" () As Integer
  29.     Declare Function PrinterPort Lib "vbprint.dll" (ByVal szPort$) As Integer
  30.     Declare Function PrinterName Lib "vbprint.dll" (ByVal s$) As Integer
  31.     Declare Function PageSizeY Lib "vbprint.dll" () As Integer
  32.     Declare Function PageSizeX Lib "vbprint.dll" () As Integer
  33.     Declare Function DrawLine Lib "vbprint.dll" (ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) As Integer
  34.     Declare Function DrawRectangle Lib "vbprint.dll" (ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) As Integer
  35.     Declare Function DrawRndRectangle Lib "vbprint.dll" (ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%, ByVal X3%, ByVal y3%) As Integer
  36.     Declare Function DrawEllipse Lib "vbprint.dll" (ByVal X1%, ByVal Y1%, ByVal X2%, ByVal Y2%) As Integer
  37.     Declare Function MoveYPos Lib "vbprint.dll" (ByVal nY%) As Integer
  38.  
  39.