Låse printe funktion

Indsæt denne i ThisWorkbook modulet

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Test via kode om formularen er udfyldt
End Sub

Tak for det hurtige svar.

Kan du uddybe lidt, hvordan man får det til at virke. Jeg er ikke ligefrem nogen excelørn.

mvh
Torben

Hvis du prøver at søge på funktionens navn kan du finde mange eksempler på, hvordan den bruges.

F.eks.

Private Sub Workbook_beforeprint(Cancel As Boolean)
Application.EnableEvents = False
If ActiveSheet.Range("a1").Value = "" Then
Cancel = True
MsgBox ("Feltet a1 skal udfyldes før dette ark kan printes")
ElseIf ActiveSheet.Range("a2").Value = "" Then
Cancel = True
MsgBox ("Feltet a2 skal også udfyldes før dette ark
kan printes.")
Else: Range("a1").Select
End If
Application.EnableEvents = True
End Sub

Her kigger den om celle a1 er tom, og derefter om a2 er tom.

Se http://excelrobot.dk/blog/gem-og-print-makro-l%C3%A5s-i-excel

eller tjek http://msdn.microsoft.com/en-us/library/office/ff195836.aspx

Okay, det virket rimeligt avanceret. Er der andre måder man kan gøre det på? Hvis ikke kan ind af jeg så lave et svar, sådan jeg kan give point for det.

mvh

Torben

Her skal A4:A6 være udfyldt.

Kopier koden her under.
I Excel
Tryk alt+F11
Dobbelt klik på Denne_projektmappe.
Tryk ctrl+v og luk på det røde kryds.

Jeg har det til at virke nu. Er der nogen der ligger et svar, så jeg kan give point.

mvh

Torben

Hvilken løsning valge du?

lidt fra alle

Velbekomme