Condividi:        

impostare la pagina di stampa con VBA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

impostare la pagina di stampa con VBA

Postdi raimea » 22/01/21 09:35

ciao

ho questa semplice macro per stampare un area di un foglio
e funziona correttamente.

Codice: Seleziona tutto
Sub Stampa_singolo()

Dim lastRow As Long

Dim area As Range

‘Sheets(“singolo”).Select

lastRow = Cells(Rows.Count, 2).End(xlUp).Row + 3 ‘ 2=col B+1

Set area = Range(“A1:F” & lastRow)

area.PrintPreview

End Sub


vorrei se e' possibile ampliarla.

vorrei poter gestire l ‘imposta pagina
gestire l ‘intestazione E il pie’ di pagina

nella macro scrivo il titolo ES: prova

in pie pagina a SX avere data e ora
in pie pagina a DX il nome del file

il titolo dovra avere :

carattere “colibri ” normale carattere 36

in questo modo in ogni foglio avro ‘ il titolo scritto sopra

e i relativi pie di pagina


ciao
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: impostare la pagina di stampa con VBA

Postdi zsadist » 22/01/21 11:34

Ciao

un codice semplice..:

Codice: Seleziona tutto
Sub Stampa_singolo()
Dim lastRow As Long
Dim area As Range
Dim Titolo As String

Titolo = "Mio Titolo"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = ""
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = "&36" & Titolo
        .RightHeader = ""
        .LeftFooter = "&D&T"
        .CenterFooter = ""
        .RightFooter = "&F"

    End With
    Application.PrintCommunication = True

'Sheets(“singolo”).Select

lastRow = Cells(Rows.Count, 2).End(xlUp).Row + 3 ' 2=col B+1

Set area = Range("A1:F" & lastRow)

area.PrintPreview

End Sub
Adattati! L'incapacità di cambiare direzione porta alla sconfitta
zsadist
Utente Junior
 
Post: 96
Iscritto il: 04/04/19 13:48

Re: impostare la pagina di stampa con VBA

Postdi raimea » 22/01/21 16:34

ciao

E' perfetta

Grazie
S.O. win10, Excell 2019
Avatar utente
raimea
Utente Senior
 
Post: 1410
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "impostare la pagina di stampa con VBA":


Chi c’è in linea

Visitano il forum: Ricky0185 e 58 ospiti