impostare la pagina di stampa con VBA

[raimea]

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

[zsadist]

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

[raimea]

ciao

E' perfetta

Grazie