24. december 2004 - 10:48Der 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???
Efter ti år i London, Madrid, Paris og Utrecht kommer Sabios AI-fokuserede program af arrangementer om kundeoplevelser, ‘Disrupt’, for første gang til Danmark.
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
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
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.
