home *** CD-ROM | disk | FTP | other *** search
/ CD Direkt 1995 #1 / Image.iso / cdd / source / vbsource / vbprint / testapp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-22  |  10.3 KB  |  320 lines
  1. VERSION 2.00
  2. Begin Form Main 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Print Control Test Application"
  6.    ClientHeight    =   4965
  7.    ClientLeft      =   1470
  8.    ClientTop       =   1890
  9.    ClientWidth     =   9105
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   -1  'True
  12.    FontName        =   "MS Sans Serif"
  13.    FontSize        =   8.25
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   5370
  17.    Icon            =   TESTAPP.FRX:0000
  18.    Left            =   1410
  19.    LinkMode        =   1  'Source
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    ScaleHeight     =   4965
  23.    ScaleWidth      =   9105
  24.    Top             =   1545
  25.    Width           =   9225
  26.    Begin CommandButton Command2 
  27.       BackColor       =   &H00C0C0C0&
  28.       Caption         =   "&About..."
  29.       Height          =   375
  30.       Left            =   7560
  31.       TabIndex        =   14
  32.       Top             =   3960
  33.       Width           =   1455
  34.    End
  35.    Begin CommandButton Command1 
  36.       BackColor       =   &H00C0C0C0&
  37.       Caption         =   "E&xit"
  38.       Height          =   375
  39.       Left            =   7560
  40.       TabIndex        =   13
  41.       Top             =   4440
  42.       Width           =   1455
  43.    End
  44.    Begin CommandButton TestColumn 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Test &Column Output"
  47.       Height          =   375
  48.       Left            =   120
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   1935
  52.    End
  53.    Begin TextBox CompanyName 
  54.       BackColor       =   &H00FFFFFF&
  55.       ForeColor       =   &H00000000&
  56.       Height          =   375
  57.       Left            =   2280
  58.       TabIndex        =   4
  59.       Top             =   2760
  60.       Width           =   6615
  61.    End
  62.    Begin TextBox TestText 
  63.       BackColor       =   &H00FFFFFF&
  64.       ForeColor       =   &H00000000&
  65.       Height          =   1695
  66.       Left            =   2280
  67.       MultiLine       =   -1  'True
  68.       ScrollBars      =   3  'Both
  69.       TabIndex        =   2
  70.       Top             =   720
  71.       Width           =   6615
  72.    End
  73.    Begin CommandButton TextTest 
  74.       BackColor       =   &H00C0C0C0&
  75.       Caption         =   "Test &Text Output"
  76.       Height          =   375
  77.       Left            =   120
  78.       TabIndex        =   1
  79.       Top             =   720
  80.       Width           =   1935
  81.    End
  82.    Begin CommandButton GraphicsTest 
  83.       BackColor       =   &H00C0C0C0&
  84.       Caption         =   "Test &Graphics"
  85.       Height          =   375
  86.       Left            =   105
  87.       TabIndex        =   0
  88.       Top             =   240
  89.       Width           =   1935
  90.    End
  91.    Begin Label PrintPort 
  92.       BackColor       =   &H00C0C0C0&
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   255
  100.       Left            =   1680
  101.       TabIndex        =   12
  102.       Top             =   4320
  103.       Width           =   3735
  104.    End
  105.    Begin Label Label5 
  106.       BackColor       =   &H00C0C0C0&
  107.       Caption         =   "Port Name:"
  108.       Height          =   255
  109.       Left            =   120
  110.       TabIndex        =   11
  111.       Top             =   4320
  112.       Width           =   1455
  113.    End
  114.    Begin Label PrintName 
  115.       BackColor       =   &H00C0C0C0&
  116.       FontBold        =   0   'False
  117.       FontItalic      =   0   'False
  118.       FontName        =   "MS Sans Serif"
  119.       FontSize        =   8.25
  120.       FontStrikethru  =   0   'False
  121.       FontUnderline   =   0   'False
  122.       Height          =   255
  123.       Left            =   1680
  124.       TabIndex        =   10
  125.       Top             =   4080
  126.       Width           =   3735
  127.    End
  128.    Begin Label Label4 
  129.       BackColor       =   &H00C0C0C0&
  130.       Caption         =   "Printer Name:"
  131.       Height          =   255
  132.       Left            =   120
  133.       TabIndex        =   9
  134.       Top             =   4080
  135.       Width           =   1455
  136.    End
  137.    Begin Label DLLVersion 
  138.       BackColor       =   &H00C0C0C0&
  139.       FontBold        =   0   'False
  140.       FontItalic      =   0   'False
  141.       FontName        =   "MS Sans Serif"
  142.       FontSize        =   8.25
  143.       FontStrikethru  =   0   'False
  144.       FontUnderline   =   0   'False
  145.       Height          =   255
  146.       Left            =   1680
  147.       TabIndex        =   8
  148.       Top             =   3840
  149.       Width           =   3735
  150.    End
  151.    Begin Label Label3 
  152.       BackColor       =   &H00C0C0C0&
  153.       Caption         =   "DLL Version:"
  154.       Height          =   255
  155.       Left            =   120
  156.       TabIndex        =   7
  157.       Top             =   3840
  158.       Width           =   1455
  159.    End
  160.    Begin Line Line2 
  161.       BorderWidth     =   4
  162.       X1              =   120
  163.       X2              =   9000
  164.       Y1              =   3720
  165.       Y2              =   3720
  166.    End
  167.    Begin Label Label2 
  168.       BackColor       =   &H00C0C0C0&
  169.       Caption         =   "Printer Information:"
  170.       FontBold        =   -1  'True
  171.       FontItalic      =   0   'False
  172.       FontName        =   "MS Sans Serif"
  173.       FontSize        =   12
  174.       FontStrikethru  =   0   'False
  175.       FontUnderline   =   0   'False
  176.       Height          =   330
  177.       Left            =   120
  178.       TabIndex        =   6
  179.       Top             =   3360
  180.       Width           =   6210
  181.    End
  182.    Begin Shape Shape2 
  183.       BorderColor     =   &H0000FFFF&
  184.       BorderWidth     =   3
  185.       Height          =   375
  186.       Left            =   6405
  187.       Top             =   210
  188.       Width           =   1335
  189.    End
  190.    Begin Shape Shape1 
  191.       BorderColor     =   &H00FF0000&
  192.       BorderWidth     =   3
  193.       Height          =   375
  194.       Left            =   4320
  195.       Shape           =   2  'Oval
  196.       Top             =   210
  197.       Width           =   1575
  198.    End
  199.    Begin Line Line1 
  200.       BorderColor     =   &H000000FF&
  201.       BorderWidth     =   3
  202.       X1              =   2280
  203.       X2              =   3960
  204.       Y1              =   210
  205.       Y2              =   480
  206.    End
  207.    Begin Label Label1 
  208.       BackColor       =   &H00C0C0C0&
  209.       Caption         =   "Your Name Here:"
  210.       ForeColor       =   &H00000000&
  211.       Height          =   255
  212.       Left            =   2280
  213.       TabIndex        =   5
  214.       Top             =   2520
  215.       Width           =   2535
  216.    End
  217. Sub Command1_Click ()
  218.     End
  219. End Sub
  220. Sub Command2_Click ()
  221.    AboutBox.Show 1
  222. End Sub
  223. Sub Form_Load ()
  224.     Dim nMajor As Integer
  225.     Dim nMinor As Integer
  226.     i% = PrintDLLVersion()
  227.     nMajor = i% And 255
  228.     nMinor = (i% And 65280) / 256
  229.     DLLVersion.Caption = Str$(nMajor) + "." + Str$(nMinor)
  230.     DevName$ = String$(255, 0)
  231.     i% = PrinterPort(DevName$)
  232.     PrintPort.Caption = DevName$
  233.     DevName$ = String$(255, 0)
  234.     i% = PrinterName(DevName$)
  235.     PrintName.Caption = DevName$
  236. End Sub
  237. Sub Form_Unload (Cancel As Integer)
  238.     End
  239. End Sub
  240. Sub GraphicsTest_Click ()
  241.     Dim i As Integer
  242.     Dim Marg As Integer
  243.     PrintingDlg.Show
  244.     i% = InitializePrinter(Main.hWnd)
  245.     i% = PageLayoutSetup(100, 100, 100, 100)
  246.     i% = DrawLine(5000, 5000, 10080, 10080)
  247.     i% = DrawRectangle(4450, 7000, 8000, 13000)
  248.     i% = DrawEllipse(5000, 5000, 7000, 8000)
  249.     i% = DrawRndRectangle(2000, 2000, 3000, 15000, 2000, 2000)
  250.     i% = DonePrinting()
  251.     PrintingDlg.Hide
  252. End Sub
  253. Sub TestColumn_Click ()
  254.     Dim nStyle As Integer
  255.     Dim i As Integer
  256.     Dim rgColumnWidths() As Integer
  257.     Dim szHeader As String
  258.     ReDim rgColumnWidths(1 To 8)
  259.     PrintingDlg.Show
  260.     i% = InitializePrinter(Main.hWnd)
  261.     szText$ = CompanyName.Text
  262.     rgColumnWidths(1) = 150
  263.     rgColumnWidths(2) = 300
  264.     nStyle = 60
  265.     szHeader$ = "Company Name:" + Chr$(9) + szText$
  266.     i% = PrintColumnHeaders(szHeader$, 2, rgColumnWidths(1), "Courier New", 12, nStyle%)
  267.     szHeader$ = "Address:" + Chr$(9) + "12345 Elm Street"
  268.     i% = PrintColumnHeaders(szHeader$, 2, rgColumnWidths(1), "Courier New", 12, nStyle%)
  269.     szHeader$ = " " + Chr$(9) + "Anywhere, USA"
  270.     i% = PrintColumnHeaders(szHeader$, 2, rgColumnWidths(1), "Courier New", 12, nStyle%)
  271.     szHeader$ = "Date:" + Chr$(9) + Date$
  272.     i% = PrintColumnHeaders(szHeader$, 2, rgColumnWidths(1), "Courier New", 12, nStyle%)
  273.     i% = MoveYPos(100)
  274.     rgColumnWidths(1) = 100
  275.     rgColumnWidths(2) = 400
  276.     rgColumnWidths(3) = 100
  277.     nStyle = 32
  278.     szHeader$ = "Quantity" + Chr$(9) + "Description" + Chr$(9) + "Price"
  279.     i% = PrintColumnHeaders(szHeader$, 3, rgColumnWidths(1), "Arial", 18, nStyle%)
  280.     nStyle = 0
  281.     i% = SetUpColumns(3, rgColumnWidths(1), "Courier New", 12, nStyle%)
  282.     i% = PrintColumnText("6" + Chr$(9) + "Computer 486sx 25Mhz" + Chr$(9) + "$ 3250.54")
  283.     i% = PrintColumnText("2" + Chr$(9) + "This is a very long description that shows the ability to wrap text" + Chr$(9) + "$   34.64")
  284.     i% = PrintColumnText("1" + Chr$(9) + "Generic Modem" + Chr$(9) + "$  145.32")
  285.     i% = PrintColumnText("3" + Chr$(9) + "Gross of Fire Crackers " + Chr$(9) + "$    1.92")
  286.     i% = EndColumnPrinting()
  287.     i% = DonePrinting()
  288.     PrintingDlg.Hide
  289. End Sub
  290. Sub TextTest_Click ()
  291.     Dim nStyle As Integer
  292.     Dim i As Integer
  293.     Dim Marg As Integer
  294.     PrintingDlg.Show
  295.     i% = InitializePrinter(Main.hWnd)
  296.     i% = PageLayoutSetup(100, 100, 100, 100)
  297.     ' Print it Once
  298.     nStyle = 0
  299.     i% = StartParagraph("Times New Roman", 12, nStyle%)
  300.     szText$ = TestText.Text
  301.     i% = ParagraphText(szText$)
  302.     i% = FinishParagraph()
  303.     i% = SetParagraphSpacing(36, 18)
  304.     ' Print it Twice
  305.     nStyle = 60
  306.     i% = StartParagraph("Arial", 18, nStyle%)
  307.     szText$ = TestText.Text
  308.     i% = ParagraphText(szText$)
  309.     i% = FinishParagraph()
  310.     i% = SetParagraphSpacing(8, 18)
  311.     ' Print it a Third time
  312.     nStyle = 0
  313.     i% = StartParagraph("Courier New", 8, nStyle%)
  314.     szText$ = TestText.Text
  315.     i% = ParagraphText(szText$)
  316.     i% = FinishParagraph()
  317.     i% = DonePrinting()
  318.     PrintingDlg.Hide
  319. End Sub
  320.