home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_2 / VB_G_PRT / GPRINTER.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-06-03  |  1.6 KB  |  49 lines
  1. VERSION 2.00
  2. Begin Form GeneralPrinter 
  3.    BackColor       =   &H8000000F&
  4.    Caption         =   "General Printer"
  5.    ClientHeight    =   3315
  6.    ClientLeft      =   210
  7.    ClientTop       =   2115
  8.    ClientWidth     =   6510
  9.    Height          =   3720
  10.    Left            =   150
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3315
  13.    ScaleWidth      =   6510
  14.    Top             =   1770
  15.    Visible         =   0   'False
  16.    Width           =   6630
  17.    Begin CommonDialog CMDialog1 
  18.       Left            =   4800
  19.       Top             =   120
  20.    End
  21.    Begin ccCallback Callback1 
  22.       IntVersion      =   1
  23.       Left            =   5520
  24.       Top             =   120
  25.       Type            =   1  'AbortProc
  26.    End
  27. '----------------------------------------------------------------
  28. 'Copyright 1994   Unger Business Systems  All Rights Reserved
  29. 'This code is distributed as shareware.  If you use it, you
  30. 'are required by law to register it.  Please contact Unger
  31. 'Business Systems at 11926 Barrett Brae, Houston, TX 77072-4004
  32. 'or call (713) 498-8517.  Registration fee is $20.00 US
  33. 'See the README.TXT file for more information
  34. 'All code, forms, modules, controls, etc. are provided without
  35. 'warranty or liability
  36. '----------------------------------------------------------------
  37. Option Explicit
  38. Sub Callback1_AbortProc (hPr As Integer, code As Integer, retval As Integer)
  39.     Dim di%
  40.     ' Call DoEvents so the ' user button press
  41.     'will be detected
  42.     DoEvents
  43.     If code = SP_OUTOFDISK Or AbortPrinting% Then
  44.         retval = 0
  45.         Exit Sub
  46.     End If
  47.     retval = -1
  48. End Sub
  49.