kop en voet teksten vast in stellen

[vrouw]

Hallo,

Is het mogenlijk om in excel de kop en voet teksten vast in te stellen zodat dit op ieder geprinte pagina komt te staan?

 

[gelens]

Vrouw,

Ja dat is mogelijk.

Bij Pagina-instelling het tabje Kop/Voetteksten kiezen.

 

[vanveelen]

Tenzij ....

.... TS bedoelt, de eerste rij boven de tabel.
Dat doe je ook middels 'Pagina-instelling'
(Tabblad: Blad)
en 'Titels afdrukken'

 

[vrouw]

Dan is dat alleen voor dat document.
Als ik excel weer afsluit en opnieuw opstart staat het niet meer in een nieuw te maken document.
En ik bedoel inderdaad een koptekst (mijn naam in dit geval) bijv rechtsboven op ieder af te drukken document.

 

[vanveelen]

Hoi,

Om welke versie van Excel gaat het?
2003 of eerder
2007 of later

 

[vrouw]

2003

 

[bentino]

Je kunt natuurlijk ook een sjabloon maken.

Dat doe je dus zo:

Nieuw excelsheet openen.

Koptekst en voettekst opmaken.

Opslaan als: Excel-sjabloon.




Elke keer dat je dit bestand gebruikt is de koptekst al voorgedefineerd. Maar begin je elke keer wel met een nieuw bestand.

 

[vrouw]

Maar... ik wil graag op iedere print mijn naam hebben.
We zitten hier op het werk met 20 man die allemaal een gezamelijke printer delen dus het zou mooi zijn dat op ieder excel exemplaar dat ik print mijn naam komt.
Ik krijg nl ook per mail veel excel bestanden die ik open en uitprint en dat is lastig als ik die dan eerst in een sjabloon moet plakken.

 

[vanveelen]

Hoi,

Je kunt voor iedere nieuwe werkmap zorgen dat je naam in de kop-of voettekst komt te staan, door zo'n bestand op te slaan in de map:

c:\program files\microsoft office\office11\XLStart\

Dit werkt echter niet voor bestaande werkmappen en al helemaal niet voor werkmappen die je van anderen toegestuurd hebt gekregen en vervolgens uit wilt printen met jou naam in de onder- of bovenmarge.

Wellicht iets met een soort 'printmacro', maar daar zit ik niet goed in.

 

[vrouw]

Ik heb een bestand geplaatst in de map C:\Program Files\Microsoft Office\OFFICE11\XLSTART
en dat werkt inderdaad als je Excel opent de eerste keer.
Als je in datzelfde Excel venster dan op nieuw klikt en een nieuw bestand word geopend dan staat de header er weer niet in.

Ik heb dus maar een macro opgenomen om het te automatiseren maar het duurt lang voordat de macro klaar is.(plm 30 sec)
Is dit vlotter te maken?

Onderstaande macro heb ik aangemaakt.

Sub Header()
'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = _
        "&""Book Antiqua,Italic""&11Deze print is van mij"
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .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
        .PrintErrors = xlPrintErrorsDisplayed
    End With

 

[vrouw]

niemand verder meer een idee?

 

[E v R]

Is dit vlotter te maken?

als je alleen het hoognodige laat staan, is het dan vlotter?

Sub Header()
'
    With ActiveSheet.PageSetup
         .CenterHeader = _
        "&""Book Antiqua,Italic""&11Deze print is van mij"
    End With

 

[vrouw]

Toppie, bedankt dat gaat een stuk sneller.