Visualizzazione dei risultati da 1 a 8 su 8
  1. #1
    Utente bannato
    Registrato dal
    Apr 2003
    Messaggi
    1,119

    macro di excel - modificare ntestaz e pič di pagina

    devo fare una macro di excel in VB che modifichi l'intestazione e il pič di pagina.
    ho trovato le funzioni
    (pagina).PageSetting.LeftFooter("str")
    (pagina).PageSetting.CenterFooter("str")
    etc...
    ma non so cosa mettere al posto di (pagina) per indicare le pagine del documento aperte!
    aiuto...

  2. #2
    Utente bannato
    Registrato dal
    Apr 2003
    Messaggi
    1,119
    upp x favoreee

    p.s. qualche mod mi ha modificato il titolo vero?

  3. #3
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    144
    ma la macro la devi fare su excel o con VB?

  4. #4
    Utente bannato
    Registrato dal
    Apr 2003
    Messaggi
    1,119
    su excel (se hai vb installato) [crea macro] ti apre l'editor VB e li scrivo il codice!!

  5. #5
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    144
    ma non puoi utilizzare il registratore di macro?

  6. #6
    Utente bannato
    Registrato dal
    Apr 2003
    Messaggi
    1,119
    non va, si apre VB...
    mah...
    soluzioni?

  7. #7
    Utente di HTML.it
    Registrato dal
    Apr 2002
    Messaggi
    144
    Prova a reinstallare excel, magari facendo attenzione che venga installata la funzionalita di registrazione macro. Se vai su strumenti->macro trovi la voce Registra nuova macro....
    Comunque io ho fatto una prova e questo che segue č il codice Vb che mi ha creato

    With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
    .LeftHeader = "A sinistra"
    .CenterHeader = "Al centro"
    .RightHeader = "&P&N"
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.78740157480315)
    .RightMargin = Application.InchesToPoints(0.78740157480315)
    .TopMargin = Application.InchesToPoints(0.984251968503937)
    .BottomMargin = Application.InchesToPoints(0.984251968503937)
    .HeaderMargin = Application.InchesToPoints(0.511811023622047)
    .FooterMargin = Application.InchesToPoints(0.511811023622047)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .PrintQuality = 600
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlPortrait
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = 100
    End With

    Spero possa esserti utile...
    Ciao

  8. #8
    Utente bannato
    Registrato dal
    Apr 2003
    Messaggi
    1,119
    weeeew grazie mille!!!!!!!!!!!!!!!!
    quello che chiedevo era proprio ActiveSheet.PageSetup!!!
    ciao grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.