home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / various / easyba / bardemo.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  359 b   |  16 lines
  1.  
  2. Sub Command1_Click ()
  3.     'set other properties if necessary: barcode1.xxx = yyy
  4.     'barcode1.Data = "123456"
  5.     barcode1.PrintTo = Printer.hDC
  6.     Printer.NewPage
  7.     Printer.EndDoc
  8. End Sub
  9.  
  10. Sub Form_Paint ()
  11.     'set other properties if necessary: barcode1.xxx = xxx
  12.     'barcode1.Data = "123456"
  13.     barcode1.PrintTo = form1.hDC
  14. End Sub
  15.  
  16.