Prikazi cijelu temu 07.12.2010 19:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 03.03.2012 23:01 od strane zxz.