home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / ppreview / printpre.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-02-05  |  7.5 KB  |  203 lines
  1. VERSION 5.00
  2. Object = "{4A93FF08-9E45-11D1-94BB-52544C00FD91}#1.0#0"; "PrintPreview.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   5784
  6.    ClientLeft      =   48
  7.    ClientTop       =   336
  8.    ClientWidth     =   6396
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   5784
  11.    ScaleWidth      =   6396
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin PrintPreviewControl.PreviewPrint PreviewPrint1 
  14.       Height          =   5532
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   0
  18.       Width           =   6252
  19.       _ExtentX        =   11028
  20.       _ExtentY        =   9758
  21.    End
  22. Attribute VB_Name = "Form1"
  23. Attribute VB_GlobalNameSpace = False
  24. Attribute VB_Creatable = False
  25. Attribute VB_PredeclaredId = True
  26. Attribute VB_Exposed = False
  27. Option Explicit
  28. Private Sub Test1()
  29. Dim longstrings As String
  30. longstrings = "Now is the time for all good men to come to the aid of their country.  The quick brown fox jumped over the lazy dog.  The rain in spain falls mainly on the plain.  The quick brown fox jumped over the lazy dog."
  31. PreviewPrint1.PaperSize = 1
  32. PreviewPrint1.Orientation = 2
  33. PreviewPrint1.BackColor = QBColor(7)
  34. PreviewPrint1.FontName = "Arial"
  35. PreviewPrint1.FontSize = 12
  36. PreviewPrint1.FontStrikethru = True
  37. PreviewPrint1.CurrentX = 1000
  38. PreviewPrint1.CurrentY = 1000
  39. PreviewPrint1.PreviewText longstrings, False
  40. PreviewPrint1.FontStrikethru = False
  41. PreviewPrint1.CurrentX = 300
  42. PreviewPrint1.CurrentY = 3000
  43. PreviewPrint1.FontSize = 16
  44. PreviewPrint1.FontUnderline = True
  45. PreviewPrint1.FontName = "Times New Roman"
  46. PreviewPrint1.FontBold = True
  47. PreviewPrint1.FontItalic = True
  48. PreviewPrint1.PreviewText "Some more text to look at", False
  49. PreviewPrint1.PreviewCircle 2000, 2000, 1500
  50. PreviewPrint1.PreviewLine 1000, 2000, 3000, 2200, QBColor(7), "BF"
  51. PreviewPrint1.PreviewPSet 1000, 1500, 3, QBColor(4)
  52. PreviewPrint1.NewPage
  53. PreviewPrint1.FontName = "Arial"
  54. PreviewPrint1.FontSize = 12
  55. PreviewPrint1.FontStrikethru = True
  56. PreviewPrint1.CurrentX = 1000
  57. PreviewPrint1.CurrentY = 1000
  58. PreviewPrint1.PreviewText "This is page 2 of the test", False
  59. PreviewPrint1.FontStrikethru = False
  60. PreviewPrint1.CurrentX = 300
  61. PreviewPrint1.CurrentY = 3000
  62. PreviewPrint1.FontSize = 16
  63. PreviewPrint1.FontUnderline = True
  64. PreviewPrint1.FontName = "Times New Roman"
  65. PreviewPrint1.FontBold = True
  66. PreviewPrint1.FontItalic = True
  67. PreviewPrint1.PreviewText "Some more text to look at on page 2", False
  68. PreviewPrint1.PreviewCircle 2000, 2000, 1500, QBColor(4)
  69. PreviewPrint1.PreviewLine 1000, 2000, 3000, 2400, QBColor(4), "B"
  70. PreviewPrint1.PreviewPSet 1000, 1500, 3, QBColor(4)
  71. PreviewPrint1.FontUnderline = False
  72. End Sub
  73. Private Sub Realtest(TitlePage As String)
  74. Dim textstring As String, textlength As Single
  75. Dim i As Integer, j As Integer, cx As Single, cy As Single
  76. Dim entry As String
  77. Const TwipsAre = 1440
  78. PreviewPrint1.PaperSize = 1
  79. PreviewPrint1.Orientation = 1
  80. PreviewPrint1.FontName = "Times New Roman"
  81. PreviewPrint1.FontSize = 14
  82. PreviewPrint1.ForeColor = QBColor(4)
  83. PreviewPrint1.CurrentY = 1 * TwipsAre
  84. PreviewPrint1.FontBold = True
  85. textstring = "This is the title of the table"
  86. textlength = PreviewPrint1.PreviewTextWidth(textstring)
  87. PreviewPrint1.CurrentX = 4 * TwipsAre - textlength / 2
  88. PreviewPrint1.PreviewText textstring, True
  89. textlength = PreviewPrint1.PreviewTextWidth(TitlePage)
  90. PreviewPrint1.CurrentX = 4 * TwipsAre - textlength / 2
  91. PreviewPrint1.PreviewText TitlePage, True
  92. ' now, make several lines of columns of width 1"
  93. PreviewPrint1.ForeColor = QBColor(0)
  94. PreviewPrint1.FontSize = 8
  95. PreviewPrint1.FontBold = False
  96. PreviewPrint1.FontItalic = True
  97. cy = PreviewPrint1.CurrentY
  98. Dim ff As New StdFont
  99. For i = 0 To 25 ' i = rows
  100. '    ff.Name = Printer.Fonts(i)
  101.     'PreviewPrint1.FontName = Printer.Fonts(i + 4)
  102.     'Debug.Print i, PreviewPrint1.FontName
  103.     textstring = "Row" & Str$(i)
  104.     cy = cy + PreviewPrint1.PreviewTextHeight(textstring)
  105.     PreviewPrint1.CurrentY = cy
  106.     For j = 0 To 6
  107.        entry = textstring & "Col" & Str$(j)
  108.        PreviewPrint1.CurrentX = (1.5 + j) * TwipsAre - PreviewPrint1.PreviewTextWidth(entry)
  109.        PreviewPrint1.PreviewText entry, False
  110.     Next j
  111. Next i
  112. cy = cy + 0.35 * TwipsAre
  113. cx = 0.5 * TwipsAre
  114. PreviewPrint1.PreviewLine cx, cy, 8 * TwipsAre, cy, , "B"
  115. textstring = "This is a line of text below the line"
  116. cy = cy + 1.5 * PreviewPrint1.PreviewTextHeight(textstring)
  117. cx = 0.5 * TwipsAre
  118. PreviewPrint1.CurrentX = cx
  119. PreviewPrint1.CurrentY = cy
  120. PreviewPrint1.PreviewText textstring, False
  121. Set ff = Nothing
  122. End Sub
  123. Public Sub DrivePreview()
  124. Test1
  125. PreviewPrint1.NewSection
  126.  Realtest "Page 1"
  127.   PreviewPrint1.NewPage
  128.   Realtest "Page 2"
  129.   PreviewPrint1.NewPage
  130.   Realtest "Page 3"
  131.   PreviewPrint1.NewSection
  132.   Test1
  133.   PreviewPrint1.NewSection
  134.   LastTest
  135. PreviewPrint1.EndDocument
  136. End Sub
  137. Public Sub LastTest()
  138.  Dim longstrings As String
  139.  longstrings = "Now is the time for all good men to come to the aid of their country.  The quick brown fox jumped over the lazy dog.  The rain in spain falls mainly on the plain.  The quick brown fox jumped over the lazy dog."
  140.  PreviewPrint1.PaperSize = 1
  141.  PreviewPrint1.Orientation = 2
  142.  PreviewPrint1.BackColor = QBColor(14)
  143.  PreviewPrint1.ForeColor = QBColor(4)
  144.   PreviewPrint1.FontName = "Arial"
  145.   PreviewPrint1.FontSize = 12
  146.   PreviewPrint1.FontStrikethru = True
  147.  PreviewPrint1.CurrentX = 1000
  148.  PreviewPrint1.CurrentY = 1000
  149.  PreviewPrint1.PreviewText longstrings, False
  150.   PreviewPrint1.FontStrikethru = False
  151.   PreviewPrint1.FontName = "Playbill"
  152.  PreviewPrint1.CurrentX = 1000
  153.  PreviewPrint1.CurrentY = 1400
  154.  PreviewPrint1.PreviewText longstrings, False
  155.  PreviewPrint1.CurrentX = 300
  156.  PreviewPrint1.CurrentY = 3000
  157.   PreviewPrint1.FontSize = 16
  158.   PreviewPrint1.FontUnderline = True
  159.   PreviewPrint1.FontName = "Times New Roman"
  160.   PreviewPrint1.FontBold = True
  161.   PreviewPrint1.FontItalic = True
  162.  PreviewPrint1.PreviewText "Some more text to look at", False
  163.  PreviewPrint1.PreviewCircle 2000, 2000, 1500, QBColor(4)
  164.  PreviewPrint1.PreviewLine 1000, 2000, 3000, 2200, QBColor(6), "BF"
  165.  PreviewPrint1.PreviewPSet 1000, 1500, 3, QBColor(4)
  166.  PreviewPrint1.NewPage
  167.   PreviewPrint1.FontName = "Arial"
  168.   PreviewPrint1.FontSize = 12
  169.   PreviewPrint1.FontStrikethru = True
  170.  PreviewPrint1.CurrentX = 1000
  171.  PreviewPrint1.CurrentY = 1000
  172.  PreviewPrint1.PreviewText "This is page 2 of the test", False
  173.   PreviewPrint1.FontStrikethru = False
  174.  PreviewPrint1.CurrentX = 300
  175.  PreviewPrint1.CurrentY = 3000
  176.   PreviewPrint1.FontSize = 16
  177.   PreviewPrint1.FontUnderline = True
  178.   PreviewPrint1.FontName = "Times New Roman"
  179.   PreviewPrint1.FontBold = True
  180.   PreviewPrint1.FontItalic = True
  181.  PreviewPrint1.PreviewText "Some more text to look at on page 2", False
  182.  PreviewPrint1.PreviewCircle 2000, 2000, 1500
  183.  PreviewPrint1.PreviewLine 1000, 2000, 3000, 2000, 0
  184.  PreviewPrint1.PreviewPSet 1000, 1500, 3, QBColor(4)
  185. End Sub
  186. Private Sub Form_Activate()
  187. DrivePreview
  188. End Sub
  189. Private Sub Form_Resize()
  190. PreviewPrint1.Height = Me.Height
  191. PreviewPrint1.Width = Me.Width
  192. End Sub
  193. Private Sub PreviewPrint1_PreviewError()
  194. ' this demonstrates how to determine the cause of
  195. ' errors in print preview.
  196. Dim msg As String
  197. msg = "PrintPreview Error " & vbLf
  198. msg = msg & "Number " & CStr(PreviewPrint1.ErrorNumber) & vbLf
  199. msg = msg & "Description " & PreviewPrint1.ErrorDescription & vbLf
  200. msg = msg & "Source " & PreviewPrint1.ErrorSource
  201. MsgBox (msg)
  202. End Sub
  203.