Handeling NA printen

[Joete]

Beste adviseurs,

Ik heb een macro in mijn Excel bestand zitten die voor het printen een aantal teksten toevoegt op mijn overzichtsblad.
Nu staat er op het blad ook een tekst die aangeeft hoe een nieuw onderdeel aangemaakt moet worden.
Om te zorgen dat de teksten toegevoegd worden en de niet af te drukken regel verborgen gebruik ik onderstaande code.
Wat ik nu eigenlijk wil is dat na het printen die regel weer te voorschijn komt, maar hoe krijg ik dat voor elkaar? Ik zie geen functie AfterPrint of iets dergelijks...
Hoop dat jullie mij kunnen helpen.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim Versie As String
    Dim Bestand As String
    Dim Datum As String
    Dim Tijd As String
    Versie = "Versie: v1-0"
    Bestand = "Bestand: " & ThisWorkbook.Name
    Datum = "Printdatum: " & Date
    Tijd = "Printtijd: " & Time
    Sheets("Totaaloverzicht").Range("C1").Value = Versie
    Sheets("Totaaloverzicht").Range("C2").Value = Bestand
    Sheets("Totaaloverzicht").Range("C3").Value = Datum
    Sheets("Totaaloverzicht").Range("C4").Value = Tijd
    Sheets("Totaaloverzicht").Range("8:8").EntireRow.Hidden = True
End Sub

 

[snb]

Kan ook zo:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  with Sheets("Totaaloverzicht")
    .Range("C1:C4")=array("Versie: v-1","Bestand: " & ThisWorkbook.Name,"Printdatum: " & Date,"Printtijd: " & Time)
    .Rows(8).Hidden = True
  end with
End Sub

 

[dnties]

@snb: Als ik je .Range commando zo bekijk lijkt het dat er sterk op dat een "haakje sluiten" mist op het einde, behorend bij de array() functie?

Tijs.

 

[snb]

@DNties

Klopt als een zwerende vinger. Heb het hersteld. Bedankt !

 

[Joete]

Kijk, qua inkorten van mijn codes kan ik inderdaad nog heel wat leren.
Bedankt hiervoor!

Alleen hiermee komt mijn regel nog niet terug na het afdrukken...
Is daar nog een mogelijkheid voor?

 

[snb]

Ja, door geen gebruik te maken van de beforeprint-gebeurtenis, maar een gewone macro te gebruiken waarin een printopdracht wordt gegeven en diverse opdrachten daarna staan.

 

[Joete]

Ja, maar dan krijg ik niet mijn gegevens op het blad als de gebruiker de print macro niet gebruikt...

Of...zit ik nu ff te denken...kan ik ook de printbefore gebruiken, daar een printopdracht in verwerken, de regel terug laten komen en de printbefore vervolgens cancellen? Of krijg ik dan een oneindige printbefore omdat ie die weer oproept in de macro?

 

[snb]

Probeer het eens uit...

 

[Joete]

Ik heb nu dit:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Sheets("Totaaloverzicht").Range("C1").Value = "Versie: v1-0"
    Sheets("Totaaloverzicht").Range("C2").Value = "Bestand: " & ThisWorkbook.Name
    Sheets("Totaaloverzicht").Range("C3").Value = "Printdatum: " & Date
    Sheets("Totaaloverzicht").Range("C4").Value = "Printtijd: " & Time
    Sheets("Totaaloverzicht").Rows(8).Hidden = True
    ThisWorkbook.PrintOut
    Sheets("Totaaloverzicht").Rows(8).Hidden = False
    Exit Sub
End Sub

Maar krijg nu 2x een afdruk ipv 1x...
Als ik van "Exit Sub" "Cancel = True" maak krijg ik helemaal geen afdruk.

Iemand een oplossing?
De regel die verborgen wordt komt wel weer netjes terug nu.

PS. de optie met de Array werkt niet bij mij, krijg dan in alle 4 de cellen "Versie: V1-0" te staan ipv de verschillende informatie.
Kijk ik later nog wel een keer naar, nu nog geen tijd voor en de code werkt nu zoals het zou moeten, op bovenstaande na dan...

 

[snb]

Ach ja,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  with Sheets("Totaaloverzicht")
    .Range("C1:C4")=application.transpose(array("Versie: v-1","Bestand: " & ThisWorkbook.Name,"Printdatum: " & Date,"Printtijd: " & Time))
    .Rows(8).Hidden = True
  end with
End Sub