intestazione piè pagina macro

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

john_cash

00giovedì 10 novembre 2016 21:30

Salve a tutti.
Questa macro stampa il foglio con l'intestazione piè pagina creata con una macro:

'---------------------------------------------------------------
With ActiveSheet.PageSetup

.LeftFooter = "data: " & Format(Date, "dddd dd/mm/yyyy")
.RightFooter = "firma: " & Application.UserName

End With
'---------------------------------------------------------------

Option Explicit

Sub stampa()

   Dim avviso As String
   
  ActiveSheet.Unprotect "987654"
  
  
  avviso = MsgBox("Sign. " & Environ("UserName") & "" _
 & Chr(13) & "stampo il foglio?", _
 vbQuestion + vbYesNo + vbDefaultButton2, "STAMPA")
 
  If avviso = 7 Then
   ActiveSheet.Protect "987654"
  Exit Sub
  
  End If
      
 '---------------------------------------------------------------
  With ActiveSheet.PageSetup
  
    .LeftFooter = "data: " & Format(Date, "dddd dd/mm/yyyy")
    .RightFooter = "firma: " & Application.UserName
    
        End With
 '---------------------------------------------------------------
               
               
  ActiveWindow.SelectedSheets.PrintPreview
   
  ActiveSheet.Protect "987654"
 
End Sub

la grandezza del testo non riesco a "ingrandila".
Un aiuto?
Grazie.
john

rollis13

00giovedì 10 novembre 2016 22:29

Esempio, se vuoi dimensione font 16 a sinistra e dimensione font 8 a destra usa:

        .LeftFooter = "&16&data: " & Format(Date, "dddd dd/mm/yyyy")
        .RightFooter = "&8&firma: " & Application.UserName

john_cash

00giovedì 10 novembre 2016 22:56

Grazie rollis funziona, in parte.
Un problema:
non riesco a eliminare anche se impostazioni piè pagina metto nessuno
i dati precedentemente inseriti, praticamente si mischiano tutti.
john

rollis13

00giovedì 10 novembre 2016 23:28

Riprova con questo formato:

    .LeftFooter = "&16" & "data: " & Format(Date, "dddd dd/mm/yyyy")
    .RightFooter = "&16" & "firma: " & Application.UserName

od anche con:

    .LeftFooter = "&16" & Chr(10) & "data: " & Format(Date, "dddd dd/mm/yyyy")
    .RightFooter = "&16" & Chr(10) & "firma: " & Application.UserName

john_cash

00venerdì 11 novembre 2016 18:08

Ciao rollis,
ora è o.k. [SM=g27811]

Solo una curiosità è possbile aggiungere anche il grassetto?

.RightFooter = "&10" & "firma capo reparto: " & "&16" & Application.UserName & Application.UserName & Application.UserName

ora questa parte è in altezza 10: firma capo reparto:
questa in altezza 16: Application.UserName & Application.UserName & Application.UserName
è possibile la seconda parte sia in grassetto?
Application.UserName & Application.UserName & Application.UserName
Grazie in anticipo.
john

dodo47

00venerdì 11 novembre 2016 18:25

Ciao

QUI

trovi i codici di formattazione.

saluti

john_cash

00venerdì 11 novembre 2016 19:06

Ciao rollis.

Ho provato a modificare la tua parte di macro che funziona [SM=g27811]

.LeftFooter = "&16" & "data: " & Format(Date, "dddd dd/mm/yyyy")
.RightFooter = "&16" & "firma: " & Application.UserName

per ingrandire solo una parte del testo.

.LeftFooter = "&10&" & "data: " & "&12" & Format(Date, "dddd dd/mm/yyyy")
     .RightFooter = "&10&" & "firma capo reparto: " & "&16" & Application.UserName & Application.UserName & Application.UserName

ma la parte da me modificata non funziona il testo a piè pagina si mischia tutto.
Per dodo47 aggiungendo il grassetto come il link da te segnalato anche in questa macro il testo si mischia tutto.
john

john_cash

00venerdì 11 novembre 2016 19:36

Ops una & e B al posto sbagliato

.LeftFooter = "&10" & "data: " & "&18&B" & Format(Date, "dddd dd/mm/yyyy")
     .RightFooter = "&10" & "firma capo reparto: " & "&18&B" & Application.UserName & Application.UserName & Application.UserName

dovrebbe essere esatto.
Grazie sia a rollis che dodo47. [SM=g27811]

john

rollis13

00venerdì 11 novembre 2016 21:53

Grazie del riscontro ... ma fa firmare il capo reparto una sola volta [SM=x423030]

john_cash

00venerdì 11 novembre 2016 21:57

john_cash

00lunedì 14 novembre 2016 19:24

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 06:00.