Predmet:Šahovska tabla u izvještaju
Accessov izvjestaj je nesto sto je po meni najbolje uradjeno u accessu.
Evo ja cu dati jos jedan primjer.
Da napomenem samo da su podaci mogli biti i iz tabele.
Kreirajte prazan izvjesta.
Detalj izvjestaja prosirite otprilike na sirinu A4 formata.
Na detail on Print postavite ovaj kod.
PreuzmiIzvorni kôd (Visual Basic):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
Pokrenite izvjestaj.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden
1
puta. Posljednja izmjena 04.03.2012 00:01 od strane zxz.