makro med integreret if funktion

Du kan godt lave en makro, der afspilles når I19 er = "OK". Denne kan så godt vise din knap. Knappen kan godt udskrive arket og skjule det igen, men jeg tror ikke at du kan sikre dig mod, at der printes på andre måder.

mon ikke dette:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    cancel = true
End Sub

vil forhindre enhver udprintning?

En skitse kunne være en funktion kaldt med:
=udskriv(I19)
og defineret som:

Function udskriv(r)
    Application.Volatile
    If r = "OK" Then
      knap.visible = true
    else
      knap.visible = false
    End If
End Function

I makroen til knappen noget i retning af

Sheets(2).Select
UdskrivOK  =true
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
UdskrivOK  =false
Sheets(1).Select

Variablen UdskrivOk kan du så bruge i :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = not UdskrivOk
End Sub

Slet UdskrivOK  =false fra knappens makro, det er bedre at have den
i

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = not UdskrivOk
    UdskrivOK  =false
End Sub

Her er et svar hvis du kan bruge ideerne...

stefanfuglsang-> Din kode vil ikke virke.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    cancel = true
End Sub

forhindrer al udskrift - også den der burde komme, når du klikker på knappen.

jkrons - det ved jeg, det var kun en illustration af at man kan styre udskrift.
Du kan se en anvendelse i kommentaren 20:46:50 og frem

skal den funktion du nævner stefan også laves som en makro  ???

Denne kode:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = not UdskrivOk
    UdskrivOK  =false
End Sub

skal indsættes i det kodemodul, der hedder ThisWorkbook (dobbeltklik på ThisWorkbook  i listen til venstre , når du har åbnet VBA-editoren)

jeg tænkte mere på den funktion med at skjule knappen

Den skal du indsætte i et kodemodul:
åbn VBA-editoren (Alt+F11)
vælg Insert | Module fra menuen.
Indsæt koden

Funktionen kaldes automatisk når I19 ændrer sig, hvis du anbringer  =udskriv(I19) i en celle

hvis udskriv skal give en værdi (andet en 0, som er standard), kan du bruge
noget i retning af

Function udskriv(r)
    Application.Volatile
    If r = "OK" Then
      knap.visible = true
      udskriv = "Klar til at udskrive" ' eller en anden tekst eller værdi
    else
      knap.visible = false
      udskriv = "" ' ingen tekst
    End If
End Function

der er en makro for knappen som definere hvad der skal udskrives

skal =udskriv(I19)  indsættes i regnearket eller i vba

=udskriv(I19) er en formel, der skal indsættes i regnearket.

hvis jeg skriver =udskriv(I19) nogen steder i arket så får jeg at vide at den ikke kender funktionen ??

Jeg går ud fra at der ståe #NAVN? i feltet ?

Har du indsat koden for udskriv i et kodemodul?
(Åbn VBA-editor, vælg Insert/Module fra menuen og skriv den ønskede funktion)

Eller er det fordi du først har indsat formlen i arket, og derefter har skrevet koden for udskriv?
(i så fald skal du blot opdatere feltet med formlen; tryk f2, dernæst enter, når du står i feltet)