home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 July / PCPRO0796.ISO / code / vb / listing3.txt < prev    next >
Encoding:
Text File  |  1996-04-29  |  270 b   |  7 lines
  1. Sub scrlZoom_Change()
  2.     vsPrinter1.Width = vsPrinter1.PageWidth * scrlZoom / 100
  3.     vsPrinter1.Height = vsPrinter1.PageHeight * scrlZoom / 100
  4.     vsViewPort1.VirtualWidth = vsPrinter1.Width * 1.0
  5.     vsViewPort1.VirtualHeight = vsPrinter1.Height * 1.0
  6. End Sub
  7.