Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim DuzTeksta As Single
Dim DuzinaPapira As Single
Dim Sredina As Single
Dim I As Integer
Dim N As Integer
Dim StartX As Integer
Dim StartY As Integer
Dim Ispuna As Boolean
Dim Boja

DuzinaPapira = Me.Width
Me.ForeColor = 255
Me.FontSize = 18
Me.FontBold = True
DuzTeksta = Me.TextWidth("ŠAHOVKA TABLA")
Sredina = (DuzinaPapira - DuzTeksta) / 2
Me.CurrentX = Sredina
Print "ŠAHOVSKA TABLA"
StartY = Me.CurrentY + 1000

For N = 1 To 8
    For I = 0 To 7000 Step 1000
            If Ispuna = True Then
            Ispuna = False
            Me.FillStyle = 0
            Else
            Ispuna = True
            Me.FillStyle = 1
            End If
        Me.Line (I + 1000, StartY + 1000)-(I, StartY), 0, B
    Next I
Ispuna = Ispuna + 1
StartY = StartY + 1000
Next N
End Sub