home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / VB6ProAppl2043501202007.psc / VB6ProApplicationCreato / PrintRegFormmod.bas < prev    next >
BASIC Source File  |  2007-01-20  |  5KB  |  119 lines
  1. Attribute VB_Name = "PrintRegFormmod"
  2. Option Explicit
  3.  
  4.  
  5. Public Sub PrintRegForm()
  6.  
  7. ' Display the print dialog
  8. Dim y As Integer
  9.  
  10.     frmPAWndc.dlgDBOpen.CancelError = True
  11.     On Error GoTo PrintCanceled
  12.  
  13.     frmPAWndc.dlgDBOpen.ShowPrinter
  14.  
  15.     On Error GoTo 0
  16.  
  17.     ' start to printing
  18.  
  19.     Screen.MousePointer = vbHourglass
  20.  
  21.     Printer.ScaleMode = 4 ' character mode
  22.     Printer.Font.Size = 10
  23.     Printer.CurrentX = 2
  24.     Printer.Print " DATE: " & Format$(Now, "MM/DD/YY");
  25.  
  26.     Printer.CurrentX = 23
  27.     Printer.Print "Pro Application Creator Registration Form";
  28.  
  29.     Printer.CurrentX = 75
  30.     Printer.Print "Page # " & Printer.Page
  31.  
  32.     y = Printer.CurrentY + 1  ' Set position for line.
  33.     ' Draw a line across page.
  34.     Printer.Line (0, y)-(Printer.ScaleWidth, y) ' Draw line.
  35.  
  36.     Printer.Print
  37.     Printer.Print "    Pro Application Creator is not free software and requires registration."
  38.     Printer.Print "    There are two classes of registration which are dependant upon "
  39.     Printer.Print "    use: Commercial."
  40.     Printer.Print
  41.     Printer.Print "    Registration of Pro Application Creator is free for Non-commercial uses."
  42.     Printer.Print "    Personal use only, source code generated by use of product may be"
  43.     Printer.Print "    modified and used in your personal application Source code available"
  44.     Printer.Print "    as an option for an additional free"
  45.     Printer.Print
  46.     Printer.Print "    Registration of Pro Application Creator for commercial use is $169.95. "
  47.     Printer.Print "    Commercial uses are: Inclusion of Pro Application Creator or Source "
  48.     Printer.Print "    Code 'generated' into ANY product that is to be sold for profit, or"
  49.     Printer.Print "    any use of this program in a business environment. Any program that is"
  50.     Printer.Print "    sold as a product for profit, or use in a corporate environment fits"
  51.     Printer.Print "    this category. Commercial registration includes the source code for"
  52.     Printer.Print "    Pro Application Creator in Visual Basic 6.0(Microsoft)."
  53.     y = Printer.CurrentY + 1  ' Set position for line.
  54.     ' Draw a line across page.
  55.     Printer.Line (0, y)-(Printer.ScaleWidth, y) ' Draw line.
  56.     Printer.Print
  57.     Printer.Print "                               REGISTRATION FORM "
  58.  
  59.     y = Printer.CurrentY + 1  ' Set position for line.
  60.     ' Draw a line across page.
  61.     Printer.Line (0, y)-(Printer.ScaleWidth, y) ' Draw line.
  62.     Printer.Print
  63.     Printer.Print "     Program                      Registration Amount            Enclosed"
  64.     Printer.Print "                               Commercial / Non-commercial"
  65.     Printer.Print "     Pro Application 6.0        $169.95   / free               _____________"
  66.     Printer.Print
  67.     Printer.Print "     If you want the Source, please check here, and sign below _____________"
  68.     Printer.Print
  69.     Printer.Print "     PAYMENT BY:"
  70.     Printer.Print
  71.     Printer.Print "     Check/Money Order enclosed for $_________________________"
  72.     Printer.Print
  73.     Printer.Print
  74.     Printer.Print "     MAILING ADDRESS:"
  75.     Printer.Print
  76.     Printer.Print "     Name___________________________________________________________________"
  77.     Printer.Print
  78.     Printer.Print "     Company________________________________________________________________"
  79.     Printer.Print
  80.     Printer.Print "     Address________________________________________________________________"
  81.     Printer.Print
  82.     Printer.Print "            ________________________________________________________________"
  83.     Printer.Print
  84.     Printer.Print "     City/State/Province____________________________________________________"
  85.     Printer.Print
  86.     Printer.Print "     Country/Postal Code____________________________________________________"
  87.     Printer.Print
  88.     Printer.Print "     Pro Application Creator will be used for________________________________"
  89.     Printer.Print
  90.     Printer.Print "     _______________________________________________________________________"
  91.     Printer.Print
  92.     Printer.Print
  93.     Printer.Print "     Signature___________________________________     Date__________________"
  94.     Printer.Print
  95.     Printer.Print "     SEND TO:  Raymond E Dixon"
  96.     Printer.Print "      tvmancet@hotmail.com "
  97.  
  98.     ' near the bottom of the page so
  99.     ' start a new page
  100.  
  101.     If Printer.CurrentY > 45 Then
  102.         Printer.NewPage
  103.     End If
  104.  
  105.     Printer.EndDoc
  106.  
  107.     MsgBox " Windows  is printing all records.", vbInformation
  108.  
  109.     Screen.MousePointer = vbDefault
  110.  
  111. Exit Sub
  112.  
  113. PrintCanceled:
  114.     On Error GoTo 0
  115.  
  116. End Sub
  117.  
  118.  
  119.