home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / print / psout / psout.txt < prev    next >
Text File  |  1995-02-27  |  697b  |  18 lines
  1. Sub Command1_Click ()
  2.     End
  3. End Sub
  4.  
  5. Sub Command3_Click ()
  6.     Const SRCCOPY = &HCC0020
  7.     Printer.ScaleMode = 3
  8.     Printer.CurrentY = 50
  9.     Printer.Print "   Sample of PostScript Printing"
  10.     Printer.Print "Program by Stephen Cramp - C/Systems"
  11.     Bits$ = String$(230 / 2 * 180, 0)
  12.     BitInfo$ = Chr$(40) + String$(3, 0) + Chr$(230) + String$(3, 0) + Chr$(180) + String$(3, 0) + Chr$(1) + Chr$(0) + Chr$(4) + Chr$(0) + String$(24, 0) + String$(64, 0)
  13.     ApiError% = GetDIBits(Picture1.hDC, Picture1.Image, 0, 180, Bits$, BitInfo$, 0)
  14.     ApiError% = StretchDIBits(Printer.hDC, 100, 150, 690, 540, 0, 0, 230, 180, Bits$, BitInfo$, 0, SRCCOPY)
  15.     Printer.EndDoc
  16. End Sub
  17.  
  18.