home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Z_FAQ_0822.bas < prev   
Encoding:
BASIC Source File  |  2003-11-26  |  416 b   |  12 lines
  1. ' FAQ: 822
  2. ' Kann man das Programm veranlassen, das es einen Text 
  3. ' (Vertraulich, usw.) quer ⁿber das Blatt stempelt. 
  4.  
  5. text = " Vertraulich / Top Secret "
  6. Font.Bold = TRUE 
  7. Font.Color = _ColorPink  
  8. Font.Name = "Courier New"
  9. Font.Size = Image(0).Width / Len( text ) * 2
  10. Font.Orientation = RadToDeg( ATan( Image(0).Height / Image(0).Width ))
  11. Image(0).DrawText( 0, Image(0).Height-Font.Size, 0,0, text )    
  12.