| | Post: 347 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
10/11/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 ---------------
excel 2007 |
|
| | Post: 404 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
10/11/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
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 347 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
10/11/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 ---------------
excel 2007 |
| | Post: 405 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
10/11/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
[Modificato da rollis13 10/11/2016 23:29]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 348 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
11/11/2016 18:08 | |
Ciao rollis,
ora è o.k.
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 ---------------
excel 2007 |
| | Post: 950 | Registrato il: 06/04/2013
| Utente Senior | 2010 | | OFFLINE |
|
11/11/2016 18:25 | |
Ciao
QUI
trovi i codici di formattazione.
saluti [Modificato da dodo47 11/11/2016 18:26] Domenico
Win 10 - Excel 2016 |
| | Post: 349 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
11/11/2016 19:06 | |
Ciao rollis.
Ho provato a modificare la tua parte di macro che funziona
.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 ---------------
excel 2007 |
| | Post: 350 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
11/11/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.
john [Modificato da john_cash 11/11/2016 19:37] ---------------
excel 2007 |
| | Post: 406 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
11/11/2016 21:53 | |
Grazie del riscontro ... ma fa firmare il capo reparto una sola volta
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 351 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
11/11/2016 21:57 | |
|
| | Post: 358 | Registrato il: 28/05/2011
| Città: MILANO | Età: 43 | Utente Senior | excel 2000/2007 | | OFFLINE | |
|
14/11/2016 19:24 | |
[Modificato da john_cash 14/11/2016 20:18] ---------------
excel 2007 |
|
|