Public Class Form1
    Dim i, pozb As Integer
    Dim isa = New Integer() {20, 205, 239, 282, 348, 444, 479, 515, 590, 701, 701, 751, 790}
    Dim zom As Decimal
    Private WithEvents docToPrint As New Printing.PrintDocument

    Private Property PrintPreviewControl1 As PrintPreviewControl

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Height = 665
        Me.Width = 875
        InitializePrintPreviewControl()
        zom = 0.5
    End Sub
    Private Sub InitializePrintPreviewControl()
        ' Construct the PrintPreviewControl.
        Me.PrintPreviewControl1 = New PrintPreviewControl
        ' Set location, name, and dock style for PrintPreviewControl1.
        Me.PrintPreviewControl1.Location = New Point(30, 60)
        Me.PrintPreviewControl1.Width = 500
        Me.PrintPreviewControl1.Height = 520
        Me.PrintPreviewControl1.Document = docToPrint
        Me.PrintPreviewControl1.Zoom = 0.5
        Me.Controls.Add(Me.PrintPreviewControl1)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        zom = zom + 0.1
        Me.PrintPreviewControl1.Zoom = zom
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        zom = zom - 0.1
        If zom < 0 Then
            zom = 0.1
        End If
        Me.PrintPreviewControl1.Zoom = zom

    End Sub
    Private Sub docToPrint_PrintPage(ByVal sender As Object, _
    ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
        Handles docToPrint.PrintPage
        Dim i As Integer
        Dim text As String = " "
        Dim printFont As New Font("Arial", 8, System.Drawing.FontStyle.Italic)
        pozb = 0
        e.Graphics.DrawLine(Pens.Black, 20, pozb + 75, 790, pozb + 75)
        text = "   Наименование товара                 Еди-     Коли-    Цена                 Стоимость     В        Нало-     Сумма             Стоимость           Страна  Номер"
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 78)
        text = "   (описание выполненных               ница    чест-    тариф              товаров          том    говая     налога             товаров                 проис-    грузо-"
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 90)
        text = "   работ, оказанных услуг)              изме-   во         за единицу        работ,           числе  став-                             (работ,                   хожде-    вой   "
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 102)
        text = "                                                                                   изме-                 услуг,              акциз   ка                                   услуг),всего           ния         тамо-"
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 114)
        text = "                                                                                   рения                 всего без                                                           с учетом                               жен- "
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 126)
        text = "                                                                                                             налога                                                                налога                                   ной- "
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 138)
        text = "                                                                                                                                                                                       (рубли)                                   декла-"
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 150)
        text = "                                                                                                                                                                                                                                      рации"
        e.Graphics.DrawString(text, printFont, System.Drawing.Brushes.Black, 20, pozb + 162)
        For i = 0 To 12
            e.Graphics.DrawLine(Pens.Black, isa(i), pozb + 75, isa(i), pozb + 195)
        Next
        e.Graphics.DrawLine(Pens.Black, 20, pozb + 179, 790, pozb + 179)
        e.Graphics.DrawLine(Pens.Black, 20, pozb + 195, 790, pozb + 195)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'ВЫВОД НА ПЕЧАТЬ hp LASER 1600
        docToPrint.Print()
    End Sub
End Class