[ Trtko @ 05.02.2007. 08:07 ] @
| 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 |