Orientamento Stampa Misto

[FROST220684Partecipante FROST220684]

Salve a tutti
avrei bisogno di una mano. In un foglio excel ho delimitato 2 aree di stampa e tramite un codice VBA la prima area viene stampata in verticale mentre la seconda in orizzontale. Avrei necessità di implementare questo codice ingrandendo la stampa dell'area 2. Per intenderci quando stampo in orizzontale il contenuto della stampa viene abbastanza piccolo quindi ci sarebbero dei margini per ingrandirlo ma non so come farlo fare in automatico con il VBA. Grazie a chi vorrà darmi una mano scrivo sotto il codice che sto utilizzando:

Sub Stampa_orizzontale_e_verticale()
Set area1 = Range("A1:E7")
Set area2 = Range("A8:E5")
With ActiveSheet
.PageSetup.Orientation = xlPortrait
area1.PrintOut Copies:=1, Collate:=True
.PageSetup.Orientation = xlLandscape
area2.PrintOut Copies:=1, Collate:=True
End With
End Sub[/CODE]

Grazie a tutti

[albatros54Moderatore albatros54 Karma: 88 pts]

prova inserendo lo zoom.

PageSetup.Zoom = 150

 

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[FROST220684Partecipante FROST220684]

purtroppo non so perchè ma mi cambia tutte le impostazioni ed incomincia a stampare ingrandito qualsiasi cosa dividendo i fogli in piccoli quadrati giganteschi ti allego il file con la modifica che ho fatto forse sbaglio qualcosa

Allegati:

You must be logged in to view attached files.

[albatros54Moderatore albatros54 Karma: 88 pts]

non ho capito bene, comunque, prova questo codice, non ti manda in stampa ma bensi ti fa l'anteprima di stampa.

`Sub Stampa_orizzontale_e_verticale()
    Set area1 = Range("A1:V52")
    Set area2 = Range("A54:V80")
    With ActiveSheet
        .PageSetup.Orientation = xlPortrait
        '.PageSetup.Zoom = 35
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 2
        PrintPreview
        'area1.PrintOut Copies:=1, Collate:=True
        .PageSetup.Orientation = xlLandscape
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = 3
        PrintPreview
        'area2.PrintOut Copies:=1, Collate:=True
    End With
End Sub`

 

Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
Sempre il mare, uomo libero, amerai!
( Charles Baudelaire )

[FROST220684Partecipante FROST220684]

grazie mille per la risposta ma poi ho risolto registrando una macro. adesso posto un altro quesito secondo me un po complesso.

Grazie Grazie Grazie

[Autore]

Articoli