home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap12 / prtpic.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-10-11  |  1.8 KB  |  58 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5550
  5.    ClientLeft      =   3675
  6.    ClientTop       =   5280
  7.    ClientWidth     =   6690
  8.    Height          =   5985
  9.    Left            =   3615
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5550
  12.    ScaleWidth      =   6690
  13.    Top             =   4905
  14.    Width           =   6810
  15.    Begin VB.PictureBox Picture1 
  16.       Height          =   495
  17.       Left            =   2760
  18.       ScaleHeight     =   435
  19.       ScaleWidth      =   1155
  20.       TabIndex        =   0
  21.       Top             =   2520
  22.       Width           =   1215
  23.    End
  24. Attribute VB_Name = "Form1"
  25. Attribute VB_Creatable = False
  26. Attribute VB_Exposed = False
  27. Private Sub Form_Load()
  28. Picture1.Picture = LoadPicture("SAMS.ICO")
  29. ' Prevent an error if the property doesn't exist
  30. On Error Resume Next
  31. Printer.Copies = 1
  32. startX = 100
  33. startY = 100
  34. Printer.PaintPicture Picture1.Picture, _
  35.     startX, startY, Picture1.Width, Picture1.Height
  36. nextY = startY + Picture1.Height + 200
  37. Printer.PaintPicture Picture1.Picture, _
  38.     startX, nextY, Picture1.Width * 2, Picture1.Height * 2
  39. nextX = startX + Picture1.Width * 2
  40. nextY = nextY + (Picture1.Height * 4) + 200
  41. Printer.PaintPicture Picture1.Picture, _
  42.     nextX, nextY, Picture1.Width * -2, Picture1.Height * -2
  43. Printer.EndDoc
  44. Printer.Copies = 1
  45. startX = 100
  46. startY = 100
  47. Printer.PaintPicture Picture1.Picture, _
  48.     startX, startY, Picture1.Width, Picture1.Height
  49. nextY = startY + Picture1.Height + 200
  50. Printer.PaintPicture Picture1.Picture, _
  51.     startX, nextY, Picture1.Width * 2, Picture1.Height * 2
  52. nextX = startX + Picture1.Width * 2
  53. nextY = nextY + (Picture1.Height * 4) + 200
  54. Printer.PaintPicture Picture1.Picture, _
  55.     nextX, nextY, Picture1.Width * -2, Picture1.Height * -2
  56. Printer.EndDoc
  57. End Sub
  58.