Fino podešavanje margina na reportima
Možda je več bila ova tema , ali netko me je pitao pa da odgovorim
Access 2002
1. Marginu podešavam direktno na reportu
2. Podešavanje je u milimetrima
3. U tabelu TBLmargine upišem za svaki dokument koje su mu margine. Poslije
nema problema s štampačima , dal je igličasti, laser, pljuckalica ( inkjet )
a i lako se podese margine ( korisnik ima formu s kojom si sam podešava margine )
Private Sub Report_Open(Cancel As Integer)
gornjam = DLookup("gornja", "tblmargine", "dokument='LJEČNIČKO POVJERENSTVO'")
lijevam = DLookup("lijeva", "tblmargine", "dokument='LJEČNIČKO POVJERENSTVO'")
donjam = DLookup("donja", "tblmargine", "dokument='LJEČNIČKO POVJERENSTVO'")
desnam = DLookup("desna", "tblmargine", "dokument='LJEČNIČKO POVJERENSTVO'")
If IsNull(gornjam) Or gornjam = "" Then
Else
Printer.TopMargin = 56.7 * gornjam
End If
If IsNull(lijevam) Or lijevam = "" Then
Else
Printer.LeftMargin = 56.7 * lijevam
End If
If IsNull(donjam) Or donja = "" Then
Else
Printer.BottomMargin = 56.7 * donjam
End If
If IsNull(desnam) Or desnam = "" Then
Else
Printer.RightMargin = 56.7 * desnam
End If
End Sub
Pozdrav Trtko
 |  |
 |
