Avatar billede cepedep Nybegynder
24. december 2004 - 10:48 Der er 3 kommentarer og
1 løsning

Fortsættelse af NAVNGIVET CELLE i sidehoved og -fod

Jeg har fået svar fra Kabbak og Gibber vedrørende at benytte en navngivet celle i sidehoved og -fod...

Imidlertid er der opstået et problem i forbindelse hermed.

Koden jeg benytter er følgende:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = [Firma] 'Hvor Firma er en navngivet celle
ActiveSheet.PageSetup.RightHeader = [UdarbejdetAf] 'Hvor UdarbejdetAf er en navngivet celle
End Sub

Jeg har indspillet en macro som skal udskrive et navngivet område og tilknyttet den til en formular-knap.

Nu sker der så noget meget underligt. Venstre og højre sidefod bliver begge centreret og ændre jeg i mine navngivne variabler ændres disse ikke ved udskrift.

Hvad sker der???

Er det noget med at den indspillede macro ligger i Module 1 og den anden ligger i ThisWorkBook???
Avatar billede bak Forsker
24. december 2004 - 12:58 #1
Jeg får det heller ikke til at virke.
Alternativ kan du indsætte en sub i module1 der gør det samme og så kalde den umiddelbart før din printlinie (Call InsertHeaders)

Sub InsertHeaders()
With ActiveSheet.PageSetup
    .LeftHeader = [Firma] 'Hvor Firma er en navngivet celle
    .RightHeader = [UdarbejdetAf] 'Hvor UdarbejdetAf er en navngivet celle
End With
End Sub
Avatar billede cepedep Nybegynder
27. december 2004 - 08:29 #2
Glædelig Jul, bak.

Jeg har prøvet lidt forskelligt uden at få det til at virke (Nu er jeg slet ikke en ørn udi VBA...)

Dette er hvad jeg har indspillet i Module 1:

Sub MUdskrivNY()
'
' MUdskrivNY Makro
' Makro indspillet 24-12-2004 af Cepedep
'

'
    Application.Goto Reference:="OmrådeUdskrift"
    Selection.PrintOut Copies:=1, Collate:=True
    Range("A9").Select
End Sub

Hvor skal din kode indsættes?
Avatar billede bak Forsker
27. december 2004 - 09:58 #3
Sådan

Sub MUdskrivNY()
'
' MUdskrivNY Makro
' Makro indspillet 24-12-2004 af Cepedep
'

'
    Application.Goto Reference:="OmrådeUdskrift"
    '****
    Call InsertHeaders
    '****
    Selection.PrintOut Copies:=1, Collate:=True
    Range("A9").Select
End Sub

Sub InsertHeaders()
With ActiveSheet.PageSetup
    .LeftHeader = [Firma] 'Hvor Firma er en navngivet celle
    .RightHeader = [UdarbejdetAf] 'Hvor UdarbejdetAf er en navngivet celle
End With
End Sub
Avatar billede cepedep Nybegynder
09. februar 2010 - 18:30 #4
Accepteret.

Læg et svar.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB