Excel har inte en inbyggd funktion för att automatiskt skriva ut ett specifikt val på * varje * sida i ett större kalkylblad. Funktionen för utskriftsområdet låter dig bara ange ett enda område att skriva ut. För att uppnå detta behöver du en lösning, och det bästa tillvägagångssättet beror på vilken typ av val du försöker skriva ut:
Scenario 1:Urvalet är ett huvud eller sidfotliknande element (upprepar innehåll)
* Använd huvud/sidfot: Om valet är avsett att vara en sidhuvud eller sidfot är detta den enklaste lösningen. Gå till fliken "Sidlayout", klicka på "Skriv ut titlar", och ange sedan det intervall du vill upprepa som en sidhuvud eller sidfot i lämpliga rutor.
Scenario 2:Urvalet är ett litet element som måste visas på varje sida (t.ex. en logotyp)
* infoga som en bild: Kopiera ditt val, klistra in det som en bild (med alternativet "klistra in special" och välja "bild (förbättrad metafil)" eller ett liknande format) och placera den där du vill ha den på varje sida. Den här bilden kommer att skriva ut på varje sida. Observera att om ditt innehåll ändras ofta måste du uppdatera bilden varje gång.
Scenario 3:Urvalet är ett mer komplext element eller data som måste finnas på varje sida (mest utmanande)
Detta kräver ett mer avancerat tillvägagångssätt, ofta involverar VBA (Visual Basic for Applications) makro. Det finns inte en enkel, icke-VBA-lösning för detta. Ett makro skulle behöva:
1. Bestäm antalet sidor: Detta innebär att beräkna storleken på det utskrivbara området och datas storlek.
2. iterera genom sidor: Makroen skulle slinga genom varje sida.
3. Skriv ut valet på varje sida: Detta kan innebära tillfälligt att ställa in utskriftsområdet eller använda skärmupptagningstekniker i makroet för att "stämpla" valet på varje sidas bild innan du skriver ut.
Exempel VBA -kod (komplex och kräver modifiering baserat på dina behov): Detta är en förenklad illustration och kanske inte fungerar utan justering av ditt specifika ark. Det är avgörande att förstå VBA innan du försöker detta.
`` VBA
Sub PrintSelectionOnPage ()
'Detta är ett mycket förenklat exempel och kommer sannolikt att kräva betydande modifiering
"Att arbeta korrekt för din specifika situation.
Dim WS som kalkylblad
Ställ in ws =thisworkbook.sheets ("Sheet1") 'Ändring "Sheet1" till ditt arknamn
Dim SelectionRange As Range
Ställ in SelectionRange =Ws.Range ("A1:B5") 'Ändra till ditt faktiska urvalsområde
Dim bild som bild
Ställ in PIC =WS.Pictures.Add (SelectionRange.Top, SelectionRange.left, SelectionRange.Width, SelectionRange.Height)
pic.Copypicture utseende:=xlscreen, format:=xlpicture
'... (kod för att bestämma antalet sidor och slinga genom dem, klistra in bilden) ...
Slutsub
`` `
Rekommendation: För de flesta fall, särskilt om ditt "val" är en rubrik, sidfot eller enkel logotyp, är det det bästa tillvägagångssättet. Om du behöver det mer komplexa scenariot 3 behöver du betydande VBA -expertis eller hjälp från någon med den expertisen. Kom ihåg att alltid säkerhetskopiera din arbetsbok innan du kör VBA -kod.
