home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / network / ogmess / prnmsg.frm < prev    next >
Text File  |  1995-02-27  |  3KB  |  114 lines
  1. VERSION 2.00
  2. Begin Form PRNMSG 
  3.    Caption         =   "Print Message"
  4.    ClientHeight    =   2370
  5.    ClientLeft      =   1245
  6.    ClientTop       =   1605
  7.    ClientWidth     =   7470
  8.    Height          =   2895
  9.    Left            =   1185
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2370
  13.    ScaleWidth      =   7470
  14.    Top             =   1140
  15.    Width           =   7590
  16.    Begin CommandButton cancelcmd 
  17.       Cancel          =   -1  'True
  18.       Caption         =   "&Cancel"
  19.       Height          =   495
  20.       Left            =   5280
  21.       TabIndex        =   6
  22.       Top             =   1560
  23.       Width           =   1215
  24.    End
  25.    Begin PictureBox SamplePic 
  26.       AutoRedraw      =   -1  'True
  27.       Height          =   975
  28.       Left            =   360
  29.       ScaleHeight     =   945
  30.       ScaleWidth      =   3945
  31.       TabIndex        =   4
  32.       Top             =   1080
  33.       Width           =   3975
  34.    End
  35.    Begin CommandButton prntcmd 
  36.       Caption         =   "&Print"
  37.       Default         =   -1  'True
  38.       Height          =   495
  39.       Left            =   5280
  40.       TabIndex        =   5
  41.       Top             =   960
  42.       Width           =   1215
  43.    End
  44.    Begin ComboBox FntSize 
  45.       Height          =   300
  46.       Left            =   5400
  47.       TabIndex        =   3
  48.       Top             =   360
  49.       Width           =   1215
  50.    End
  51.    Begin ComboBox FntNames 
  52.       Height          =   300
  53.       Left            =   1560
  54.       TabIndex        =   0
  55.       Top             =   360
  56.       Width           =   2415
  57.    End
  58.    Begin Label Label2 
  59.       AutoSize        =   -1  'True
  60.       Caption         =   "Font Size: "
  61.       Height          =   195
  62.       Left            =   4320
  63.       TabIndex        =   2
  64.       Top             =   360
  65.       Width           =   930
  66.    End
  67.    Begin Label Label1 
  68.       AutoSize        =   -1  'True
  69.       Caption         =   "Printer Fonts:"
  70.       Height          =   195
  71.       Left            =   240
  72.       TabIndex        =   1
  73.       Top             =   360
  74.       Width           =   1155
  75.    End
  76. End
  77. Sub cancelcmd_Click ()
  78. Unload prnmsg
  79. End Sub
  80.  
  81. Sub FntNames_Click ()
  82. If fntnames.listindex <> -1 Then
  83.     prnmsg.fntnames.text = prnmsg.fntnames.list(prnmsg.fntnames.listindex)
  84. End If
  85.  
  86. size$ = fntsize.text
  87. fnt$ = fntnames.text
  88. Call disp_sample(fnt$, size$)
  89.  
  90. End Sub
  91.  
  92. Sub FntSize_Click ()
  93. If fntsize.listindex <> -1 Then
  94.     fntsize.text = fntsize.list(fntsize.listindex)
  95. End If
  96.  
  97. size$ = fntsize.text
  98. fnt$ = fntnames.text
  99.  
  100. Call disp_sample(fnt$, size$)
  101.  
  102. End Sub
  103.  
  104. Sub prntcmd_Click ()
  105. printer.fontname = fntnames.text
  106. printer.fontsize = Val(fntsize.text)
  107. prnstat.Show
  108. printer.Print printstring
  109. printer.EndDoc
  110. Unload prnstat
  111. Unload prnmsg
  112. End Sub
  113.  
  114.