udskriv automatisk ekstra ark

Der findes en Workbook_BeforePrint i ThisWorkBook, men den kan jeg ikke lige få til at fungere. Mit gæt ville være noget i retning af

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "Ark1" Then
    Sheets("Ark2").PrintOut Copies:=1, Collate:=True
End If

End Sub

Men jeg kan ikke få hændelsen aktiveret (den ignores når jeg printer), men måske kan du bruge det som inspiration.


Alternativt kan du jo knytte en makro til en kommandoknap på ark 1

Private Sub CommandButton1_Click()

    Sheets("Ark1").PrintOut Copies:=1, Collate:=True
    Sheets("Ark2").PrintOut Copies:=1, Collate:=True

End Sub

Du kan gøre det samme på ark 2 (selvom du jo der kan bruge den almindelige funktion.

Private Sub CommandButton1_Click()

    Sheets("Ark2").PrintOut Copies:=1, Collate:=True

End Sub

sæt denne i ThisWorkbook modulet
Ret selv arknavnene

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Caller = ActiveSheet.Name ' det ark hvor udskriften bestilles fra
If Caller = "Ark1" Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("Ark2").PrintOut Copies:=1, Collate:=True'det ark der også skal udskrives

End If
End Sub

kabbak > Er Caller-funktionen nødvendig? Kan man ikke blot undersøge navnet direkte (som i mit første forslag)

kabbak > Skriver du i øvrigt ikke ark1 ud 2 gange?

Det var nu ikke ment som en funktion, men som navnet på en variabel.

Kom senere til at tænke på at ordet måske var reseveret.
Fordi jeg bruger, at smide navnet over i en variabel, så er det nemmere at tjekke værdien ved testkørsel.

jeg testede på min printer, der fik jeg den kun 1 gang , men jeg kørte også kun en test.

Misvisende brug af ordet funktion. Det kan jeg godt se nu. Beklager! :0)

Jeg tænkte bare at BeforePrint bliver jo aktiveret, når du printer et ark. Printningen bliver vel ikke standset - den afventer blot at koden i BeforePrint afvikles. Og her vælger du så - som jeg ser det - at skrive arket ud igen med

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Eller er der noget jeg har overset?

har lige testet igen, du har ret, koden skal se sådan ud'

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Caller = ActiveSheet.Name ' det ark hvor udskriften bestilles fra
If Caller = "Ark1" Then
        Sheets("Ark2").PrintOut Copies:=1, Collate:=True'det ark der også skal udskrives

End If
End Sub

Se det kan jeg jo bedre lide - det ligner nemlig mit første forslag ret meget. Men nu skeler øjnene efterhånden så meget, at jeg hellere må kravle i seng. Hyg dig ;0)

ja godnat

Jeg har brugt kabbaks løsning, men måske er det mere fair hvis i deler point ?

giv dem til sjap, han var først med en brugbar løsning ;-))

Jeg modtager da gerne lidt point - og jeg deler også gerne :0)

kabbak > Jeg har stadig ikke helt fanget ideen med at oprette en variabel og lægge arknavnet over i variablen. Det virker lidt overflødigt, men det er måske bare mig?

det er overflødig, men jeg bruger det tit, for så kan man læse værdien, når man tester.