Prikazi cijelu temu 07.12.2010-19:55
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Š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.
DownloadIzvorni kod (Visual Basic):
  1. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  2. Dim DuzTeksta As Single
  3. Dim DuzinaPapira As Single
  4. Dim Sredina As Single
  5. Dim I As Integer
  6. Dim N As Integer
  7. Dim StartX As Integer
  8. Dim StartY As Integer
  9. Dim Ispuna As Boolean
  10. Dim Boja
  11.  
  12. DuzinaPapira = Me.Width
  13. Me.ForeColor = 255
  14. Me.FontSize = 18
  15. Me.FontBold = True
  16. DuzTeksta = Me.TextWidth("ŠAHOVKA TABLA")
  17. Sredina = (DuzinaPapira - DuzTeksta) / 2
  18. Me.CurrentX = Sredina
  19. Print "ŠAHOVSKA TABLA"
  20. StartY = Me.CurrentY + 1000
  21.  
  22. For N = 1 To 8
  23.     For I = 0 To 7000 Step 1000
  24.             If Ispuna = True Then
  25.             Ispuna = False
  26.             Me.FillStyle = 0
  27.             Else
  28.             Ispuna = True
  29.             Me.FillStyle = 1
  30.             End If
  31.         Me.Line (I + 1000, StartY + 1000)-(I, StartY), 0, B
  32.     Next I
  33. Ispuna = Ispuna + 1
  34. StartY = StartY + 1000
  35. Next N
  36. End Sub
Pokrenite izvjestaj.
Pozdrav
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 03.03.2012-23:01 od strane zxz.