home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / prclp2 / printclp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  1.1 KB  |  37 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "PrintClip"
  5.    ClientHeight    =   0
  6.    ClientLeft      =   -1890
  7.    ClientTop       =   30
  8.    ClientWidth     =   1875
  9.    Height          =   405
  10.    Icon            =   PRINTCLP.FRX:0000
  11.    Left            =   -1950
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   0
  16.    ScaleWidth      =   1875
  17.    Top             =   -315
  18.    Width           =   1995
  19. Sub Form_Load ()
  20.     windowstate = 1
  21. End Sub
  22. Sub Form_Resize ()
  23.     If windowstate <> 1 Then
  24.         windowstate = 1
  25.         Const CF_TEXT = 1   ' Define bitmap format.
  26.         On Error Resume Next    ' Setup error handling.
  27.         If Clipboard.GetFormat(CF_TEXT) Then
  28.             temp$ = Clipboard.GetText(CF_TEXT)  ' Get Clipboard text.
  29.             printer.Print temp$
  30.             printer.EndDoc
  31.         Else
  32.             Msg$ = "There is no text on the Clipboard."
  33.             MsgBox Msg$ ' Display error message.
  34.         End If
  35.     End If
  36. End Sub
  37.