Printen

[Noord2011]

Beste mensen,

Ik ben bezig om een factuur te maken en ik wil een optie inbouwen dat als in cel C13 ‘Naam’ staat mag de factuur niet uitprinten. (Het mag wel als andere tekst er in staat.) het zou mooi zijn dat een foutmelding geeft ‘naam kiezen’ als naam in cel C13 staat en je drukt op het knop printen.

Zie bijlage

Alvast bedankt

Mv/Gr

 

[Thoralf]

Hallo Noord25,

Private Sub CommandButton3_Click()
If Range("c13") <> "Naam" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
MsgBox ("Een naam kiezen")
End If
End Sub

Zou het moeten doen.

Groeten
Thoralf

 

[Hoornvan]

Je kunt de regel van de MsgBox ook veranderen in;

MsgBox (" U moet een naam kiezen"), vbOKOnly, " Kies een naam"

 

[Ginger]

Persoonlijk zou ik 'm afvangen in de Workbook_BeforePrint methode....

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    
    If Sheets("Sheet1").Range("C13").Value = "Naam" Then
        MsgBox "Voor het afdrukken éérst een naam invullen...", vbOKOnly + vbCritical, "Naam!"
        Sheets("Sheet1").Range("C13").Select
        Cancel = True
    End If
    
End Sub

Plaats dit blokje in de ThisWorkbook module.

Groet, Leo

 

[Noord2011]

Het codes zijn prima maar als het MsgBox verschijn en ik klik op OK wordt de verdere acties toch uitgevoerd.

Ik wil dat al de acties worden reset. Dus niet verder gaan met printen ect.... totdat ik een corecte naam kies.

Alvast bedankt

Mv/Gr

 

[Ginger]

maar als het MsgBox verschijn en ik klik op OK wordt de verdere acties toch uitgevoerd

Heu??? Bij mijn codeblokje wordt er echt niets afgedrukt als er 'Naam' in die betreffende cel staat....

Groet, Leo

 

[Warme bakkertje]

Je moet uiteraard het codeblok van Leo plaatsen in ThisWorkbook en dan werkt het prima.

Mvg

Rudi

 

[Noord2011]

Beste mensen,

Ja, maar mijn bedoeling is dat als in Sheet 1 cel C13 “naam” staat dan hoeft het factuur niet uitprinten . Dus ook niet als ik op het MGSbox OK klikken. Het moet echt een andere naam staat bijv . Jan dan kan de ander acties in het factuur plaatsvinden.

Want van alle uigeprinte facturen wordt bepaalde cellen gekopieerd naar sheet3 en deze acties dienen niet gebeuren als er geen goede naam staan in Sheet1 cel C13. Zie bijlage

Alvast bedankt

Mv/Gr

 

[Warme bakkertje]

Bij deze

Mvg

Rudi