ho bisogno di un aiuto veloce: la formula in oggetto...
Io scrivo così:
Codice:
Dim TotalPage as Integer
Dim LinePerPage as Integer
Dim LinePerPage as Integer
Poi per effettuare il calcolo delle linee per pagina:
Codice:
LinePerPage = CInt((e.MarginBounds.Height - 7) / L.Height)
TotalPages = CInt((Math.Abs((Count - 1) / LinePerPage)))
TotalPages = CInt((Math.Abs((Count - 1) / LinePerPage)))
Dove L è un custom control di altezza 30 e Count rappresenta il numero di oggetti L contenuti nella collezione.
NOTA: Ovviamente LinePerPage nel caso di un foglio A4 assume un valore di 32.
Per Count ho tentato un valore di 40 (stampa solo la prima pagina di due); 724 (ne stampa il numero giusto); 2000 (ne stampa due in più).
Qualcuno sarebbe così gentile da darmi una mano?
