Stegande tal vid utskrift

[Zipponso]

Tja.

 

Undrar hur man gör för att få en ny siffra stegande uppåt vid utskrift.

Te x. första utskrift får nr. 1. Nästa nr. 2. och så vidare...

Och så nästa gång man skriver ut så ska de fortsätta där den slutade.

 

Helst igenom "Skriv ut" i menyn.

 

Tack på förhand

Zipponso

[Mr Andersson]

I VBA finns en event som heter OnPrint, där kan du räkna upp en variabel och sedan använda den i utskriften. Du nämner inte om det är Word, Excel eller Access, det kan skilja lite på hur du ska göra.

[Zipponso]

Tack.

 

Det är Excel.

[Monshi]

I VBA editor, ThisWorkbook, där finns händelsen BeforePrint, dvs den körs innan utskrift. Tror det är bästa som står att finna i Excel.

 

Enklast alltså om du räknar upp före utskrift. Ta en titt på den. kan du något om VBA/programmering?

[Zipponso]

Tack,

 

Programmerade någon gång på 80-90 talet. SÅ...

Helt ny i game´t Igen...

[Monshi]

i teorin kan det vara såhär enkelt:

 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Blad1.Range("a1") = Blad1.Range("a1") + 1
End Sub

dvs vi använder oss av en händelsefunktion som fyras av innan utskriften sker.

Enda problemet är användaren även efter denna rutin kan avbryta utskriften men det kanske i praktiken inte är ett problem?

 

Denna kod ska alltså finns på ThisWorkbook-bladet i VBA-editorn, uppdatera referens till en som är giltig i din bok.

[Tune]

Vill du skriva ut siffran med antalet utskrifter i sidhuvudet kan du lägga till nedanstående till koden ovan:

 

 

With ActiveSheet.PageSetup

.CenterHeader = Blad1.Range("a1")

End With

 

Ovan lägger till i siffran i mitten på sidhuvudet

Fler alternativ på placering:

 

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

 

 

[Zipponso]

Tack igen.

 

Hur får jag det att ändra siffra efter varje blad som kommer ut ur skrivaren te x. om jag väljer 100 ex. så ska första ha siffran 1 och den sista ha 100.

Och så ska den komma ihåg den sista till nästa utskrift. O gärna i "Skriv ut" menyn.

 

Eller går det inte att ta den vägen i Excel.

[Zipponso]

I en cell menar jag, inte som sidhuvud...