Interruzione di pagina variabile

[Blinker]

un'altra domanda per gli esperti,
ho un file che normalmente in stampa è formato da una sola pagina, ho
previsto che si possano inserire immagini per meglio spiegare il lavoro da
fare (trattasi di procedure di lavoro).
ogni volta che carico un'immagine nello strumento immagine avrei la
necessità che le pagine in stampa diventassero due (ora lo faccio
manualmente spostando le interruzioni di pagina) è possibile farlo in modo
*automatico*?

grazie Blink

[Mauro Gamberini]

> ho un file che normalmente in stampa è formato da una sola pagina, ho
> previsto che si possano inserire immagini per meglio spiegare il lavoro da
> fare (trattasi di procedure di lavoro).
> ogni volta che carico un'immagine nello strumento immagine avrei la
> necessità che le pagine in stampa diventassero due (ora lo faccio
> manualmente spostando le interruzioni di pagina) è possibile farlo in modo
> *automatico*?
>

Considera queste due macro.
Una ti mette una interruzione di pagina
alla riga 20 del foglio attivo,
l'altra elimina le interruzioni di pagina:

Public Sub mInterruzionePaginaOn()
ActiveSheet.HPageBreaks.Add Range("A20")
End Sub

Public Sub mInterruzionePaginaOff()
ActiveSheet.ResetAllPageBreaks
End Sub

Tu riesci a creare adesso una macro che:
se c'è la tua immagine, ti inserisce l'interruzione di
pagina al range che vuoi tu, altrimenti lo elimina?

Dai un'occhiata all' Oggetto insieme HPageBreaks
nella guida del vba di Excel.

--
----------------------------
Mauro Gamberini

[Blinker]

>
>
> Tu riesci a creare adesso una macro che:
> se c'è la tua immagine, ti inserisce l'interruzione di
> pagina al range che vuoi tu, altrimenti lo elimina?
>
>
> Dai un'occhiata all' Oggetto insieme HPageBreaks
> nella guida del vba di Excel.
>
> --
> ----------------------------
> Mauro Gamberini

Ti dico la verità, ho provato e riprovato, ma non sono riuscito a concludere
nulla.
In pratica inserisco l'immagine con:

Private Sub CommandButton1_Click()

NewFile = Application.GetOpenFilename

Sheets(1).Image1.Picture = LoadPicture("" & NewFile & "")

End Sub

e non riesco a far fiventare il range di stampa da A1:O55 a A1:Z55, o si può
solo scendere con le righe? ma non sono riuscito neppure così

grazie Ciao Blink

[Mauro Gamberini]

Alt, fermo lì!

Primo post tuo:

> ho un file che normalmente in stampa è formato da una sola pagina, ho
> previsto che si possano inserire immagini per meglio spiegare il lavoro da
> fare (trattasi di procedure di lavoro).
> ogni volta che carico un'immagine nello strumento immagine avrei la
> necessità che le pagine in stampa diventassero due (ora lo faccio
> manualmente spostando le interruzioni di pagina) è possibile farlo in modo
> *automatico*?
>

Parli di interruzioni di pagina.....

Secondo post:

> e non riesco a far fiventare il range di stampa da A1:O55 a A1:Z55, o si
può
> solo scendere con le righe? ma non sono riuscito neppure così
>

Qui parliamo di Area di stampa......

Per questa seconda neccessità:

Public Sub mImpostaAreaStampa_AZ()
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$55"
End SubPublic Sub mImpostaAreaStampa_AO()
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$55"
End SubAncora:Public Sub mEliminaAreaStampa()
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Ti elimina l'area di stampa.Spero di aver
capito.-- ----------------------------Mauro Gamberini

[Mauro Gamberini]

> Public Sub mImpostaAreaStampa_AZ()
> ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$55"
> End SubPublic Sub mImpostaAreaStampa_AO()
> ActiveSheet.PageSetup.PrintArea = "$A$1:$O$55"
> End SubAncora:Public Sub mEliminaAreaStampa()
> ActiveSheet.PageSetup.PrintArea = ""
> End Sub
>

Riposto perchč č venuto da schifo....

Public Sub mImpostaAreaStampa_AZ()
ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$55"
End

SubPublic Sub mImpostaAreaStampa_AO()
ActiveSheet.PageSetup.PrintArea = "$A$1:$O$55"
End Sub

Public Sub mEliminaAreaStampa()
ActiveSheet.PageSetup.PrintArea = ""
End Sub

--
----------------------------
Mauro Gamberini

[Blinker]

>
> Parli di interruzioni di pagina.....

> Qui parliamo di Area di stampa......

>
> Per questa seconda neccessità:
>
> Public Sub mImpostaAreaStampa_AZ()
> ActiveSheet.PageSetup.PrintArea = "$A$1:$Z$55"
> End SubPublic Sub mImpostaAreaStampa_AO()
> ActiveSheet.PageSetup.PrintArea = "$A$1:$O$55"
> End SubAncora:Public Sub mEliminaAreaStampa()
> ActiveSheet.PageSetup.PrintArea = ""
> End Sub
> Ti elimina l'area di stampa.Spero di aver
> capito.-- ----------------------------Mauro Gamberini
>
>

non ho la possibilità ora di provare se funziona, ma sono convinto di si,

per il resto ho affrontato il problema in modo sbagliato cercando all'inizio
di stampare due pagine anzichè una spostando l'interruzione di pagina, che a
pensarci bene interrompe e non aumenta le pagine e poi, guardando bene cosa
devo stampare, sono *scivolato* nell'Area di Stampa che (aspettiamo la
verifica di domani) presumo sia la mossa giusta.
ho voluto scrivere il mio ragionamento in modo da trarne spunti nel caso sia
ancora sbagliato

abbiate pazienza Blink

[Blinker]

"> non ho la possibilità ora di provare se funziona, ma sono convinto di si,
>
> per il resto ho affrontato il problema in modo sbagliato cercando
> all'inizio di stampare due pagine anzichè una spostando l'interruzione di
> pagina, che a pensarci bene interrompe e non aumenta le pagine e poi,
> guardando bene cosa devo stampare, sono *scivolato* nell'Area di Stampa
> che (aspettiamo la verifica di domani) presumo sia la mossa giusta.
> ho voluto scrivere il mio ragionamento in modo da trarne spunti nel caso
> sia ancora sbagliato
>
> abbiate pazienza Blink

come previsto funziona alla perfezione, era il metodo errato.
Unico neo sembrerebbe ora il fatto che inserendo in due "strumento immagine"
due foto da circa 800 Kb ogniuna il file finale risulta essere di oltre 40
Mb.
Cos'altro avrò sbagliato?

grazie Blink