Adattare dati in fogli stampa

[Marco Siffredi]

Salve gente, buongiorno a tutti.
Usando Visual basic 6 creo una tabella excell in memoria e non visiva, e
prima di mandarla in stampa tramite codice :

With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

vado ad adattare tutti dati nel foglio A4.

Il mio problema è che mi trovo ora come ora una montagna di dati e tenendo
solo il codice sopra riportato in excell mi trovo in un foglio A4, con
scritte minuscole in qunato excell si limita a far stare tutto il pacco dati
in un solo foglio A4.
La mia domanda , dopo tutto sto tema è, c è la possibilità, di fare in modo
che vb adatti il contenuto in un foglio A4 fino ad un certo limite e se i
dati sono troppi, me li vada ad inserire in un foglio successivo? (e magari
mi faccia un caffè :-) )
Grazie mille a tutti buon pomeriggio

[Mauro Gamberini]

Post by Marco Siffredi
Salve gente, buongiorno a tutti.
Usando Visual basic 6 creo una tabella excell in memoria e non visiva, e

Immagino che più che una tabella tu crei in memoria
una cartella(Workbook), contenente un foglio(worksheet), all'interno
del quale si trova la tua tabella. E' così?

[Marco Siffredi]

YES !! ;-)

Post by Mauro Gamberini

Post by Marco Siffredi
Salve gente, buongiorno a tutti.
Usando Visual basic 6 creo una tabella excell in memoria e non visiva, e

Immagino che più che una tabella tu crei in memoria
una cartella(Workbook), contenente un foglio(worksheet), all'interno
del quale si trova la tua tabella. E' così?
--
----------------------------
Mauro Gamberini

[Mauro Gamberini]

Post by Marco Siffredi
YES !! ;-)

Ultime due domandine.
Stimo parlando di un tutto creato e popolato
da vb 6.0, non vba?
Popolato da? Un db?
Più o meno quanti campi e records
(per ricreare qui il tuo problema...)?

[Mauro Gamberini]

Ma quanto stai chiedendo qui, ha un
collegamneto a quanto chiedi in
microsoft.public.it.vb?

lo so, sono mooolto curioso... 8-)

[Marco Siffredi]

eeeeee no caro ;-)

nono in public.it.vb chiedo come meglio operare nel campo dei report tramite
datareport !

Qui invece chiedo info per quel che riguarda la disposizione dei dati se
necessario in più fogli! ;-)

Io per esempio in una tabella acess ho i campi Nome, cognome, Prelievo,
totale, ora, password, problema_riscontrato

questi sono i campi e se ho pochi dati all'interno di essi tramite worksheet
e tramite page setup da Visual basic 6 faccio in modo che il testo si
autoadatti in un foglio dichiarato via condice ovviamente A4.

Questo funziona alla grande sopratutto per la larghezza delle colonne,
quindi non mi andrà mai fuori dal bordo, ma per quel che riguarda la
lunghezza del foglio (viene stampato in verticale sempre via condice) anche
li mi autoadatta il tutto, quindi se ho per esempio 50 righe di dati va
tutto bene, se ho 200 righe di dati , excell per far stare il tutto comincia
a ridurmi le dimensioni del carattere!
Io invece vorrei fare in modo che se supera la lunghezza del foglio mi vada
a stampare in un foglio successivo !!!
Spero di essermi spiegato ... (sono abbastanza confusionario ;-) )

Post by Mauro Gamberini
Ma quanto stai chiedendo qui, ha un
collegamneto a quanto chiedi in
microsoft.public.it.vb?
lo so, sono mooolto curioso... 8-)
--
----------------------------
Mauro Gamberini

[Mauro Gamberini]

Post by Marco Siffredi
Questo funziona alla grande sopratutto per la larghezza delle colonne,
quindi non mi andrà mai fuori dal bordo, ma per quel che riguarda la
lunghezza del foglio (viene stampato in verticale sempre via condice) anche
li mi autoadatta il tutto, quindi se ho per esempio 50 righe di dati va
tutto bene, se ho 200 righe di dati , excell per far stare il tutto comincia
a ridurmi le dimensioni del carattere!

Conta le righe.

Ad esempio:

Dim nr As long
nr=tuoFoglio.Range("A65536").End(xlUp).row

Ti trova l'ultima riga della colonna(campo) A

Se sono <=50 utilizza il tuo codice
altrimenti
NomeFoglio.PrintOut

O mi sfugge(ancora) qualcosa?

[Marco Siffredi]

Penso sia un ottima idea ! Stamattina provo speriamo in bene va ! :-)
Grazie mille troppo buono buona giornata a te e a tutto il popolo della
news!

Post by Mauro Gamberini
Conta le righe.
Dim nr As long
nr=tuoFoglio.Range("A65536").End(xlUp).row
Ti trova l'ultima riga della colonna(campo) A
Se sono <=50 utilizza il tuo codice
altrimenti
NomeFoglio.PrintOut
O mi sfugge(ancora) qualcosa?
--
----------------------------
Mauro Gamberini

[Franz Verga]

Post by Marco Siffredi
Salve gente, buongiorno a tutti.
Usando Visual basic 6 creo una tabella excell in memoria e non
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
vado ad adattare tutti dati nel foglio A4.
Il mio problema è che mi trovo ora come ora una montagna di dati e
tenendo solo il codice sopra riportato in excell mi trovo in un
foglio A4, con scritte minuscole in qunato excell si limita a far
stare tutto il pacco dati in un solo foglio A4.
La mia domanda , dopo tutto sto tema è, c è la possibilità, di fare
in modo che vb adatti il contenuto in un foglio A4 fino ad un certo
limite e se i dati sono troppi, me li vada ad inserire in un foglio
successivo? (e magari mi faccia un caffè :-) )

Potresti provare con

Post by Marco Siffredi
.FitToPagesWide = 1
.FitToPagesTall = 40

In questo modo hai il vantaggio che se il tuo elenco è meno di 40 pagine ti
stampa solo quelle necessarie. Ovviamente puoi mettereun numero anche più
grande...
--
Spero d'esserti stato d'aiuto...

Ciao

Franz Verga

----------------------------------------------------------------------------------------
per rispondermi traduci InVento in inglese (no maiuscole)
----------------------------------------------------------------------------------------