Automatisk fakturanummer ved Print!

Kan du ikke bruge dette til noget..
Jeg har selv brugt det til noget tilbudsnummerering...

http://eksperten.dk/spm/526478

/Pho2ke

pho2ke>> Tak for hjælpen men jeg kan ikke helt bruge det i mit tilfælde. Jeg ønsker at nummeret tælles op hver gang der trykkes print. Kan det mon lade sig gøre??

Sådan ser min makro ud indtil videre:

Sub Fakturanummer()
  Dim Nummer As String

  Nummer = System.PrivateProfileString( _
    "Faktura.ini", "Faktura", "Nummer")
 
  If Nummer = "" Then
    Nummer = 101
  Else
    Nummer = Nummer + 1
  End If
 
  System.PrivateProfileString( _
    "Faktura.ini", "Faktura", "Nummer") = Nummer
 
  With ActiveDocument
    .FormFields("Nummer1").Result = Nummer
    .FormFields("Nummer2").Result = Nummer
  End With
End Sub

Koden er bare hentet et andet sted fra og understøtter endnu ikke det med print.
Hvordan kommer jeg mon videre herfra?
Forresten benytter jeg en ini-fil til at gemme nummeret i.

Forslag:

Opret en kommandoknap (fra kontrolelementer) i dokumentet/skabelonen.

Når der trykkes på knappen - udføres fakturanummer-rutinen samt udskrivning på printer - indspil en makro vedr. udskriv - så får du koden hertil, hvis du ikke kender VBA-udtrykket hertil.

supertekst>>> Ok, men er det ikke muligt for brugeren bare at trykke på "normal" print og så bliver nummeret talt op og printet korrekt ud??

Kan man ikke et sted tjekke på om der bliver trykket på print og så selv skrive det der uderligere skal gøres?? (eks. tæl fak.nummer een op)

OK - så opret en makro med navnet FilerUdskrivStandard i det pågældende dokument og indlæg VBA-koden (Fakturanummerberegningen + udskrivning) heri - så skulle det virke ved klikpå Udskriv-knappen.

supertekst>> Men herved kommer man vel ikke udenom enten at skulle lave en knap der kører makroen eller afspille den automatisk når dokumentet starter?? Men ok hvis det ikke kan gøres anderledes så laver jeg en knap som opdaterer fak.nr. og udskriver (bare ikke helt så brugervenligt synes jeg).

Det skulle ikke være nødvendigt at oprette en særlig knap - idet makroen FilerUdskrivStandard udføres, når der klikkes på "Udskriv-knappen". Det fungerer i office 2003.

(Du kan se de foruddefinerede Word Kommandoer ved: Alt+F8 - Makroer i: Word-kommandoer)

tak for hjælpen begge to!

Den virker fint ;-)

Hej supertekst...sender du ikke et svar så vi kan lukke denne.

Selv tak - her er et svar