knop maken

[patrickje]

Ik wil graag een knop maken in mijn werkblad

deze moet als functie krijgen :

eerst afdrukken daarna een bevestiging vragen of het afdrukken gelukt is.
daarna excel afsluiten zonder iets op te slaan en of het te vragen.
als het afdrukken mislukt is zou ik op nee willen klikken en dan terug keren naar excel zonder het programma af te sluiten.

Is dit mogenlijk

Wie kan mij hier bij helpen

 

[Cobbe]

Hier heb je een beetje code die dat voor u doet als je deze chter een knop hangt:

Sub afdruk_Controle()
  ActiveSheet.PrintPreview 'dit wijzigen in PrintOut indien Oké!
       controle = MsgBox("Is alles goed verlopen?", vbYesNo)
          If controle = vbNo Then Exit Sub
               Application.DisplayAlerts = False
                 Application.Quit
End Sub

Succes, Cobbe

 

[patrickje]

Als ik dit ingeef :

Private Sub CommandButton2_Click()
Sub afdruk_Controle()
ActiveSheet.PrintPreview 'dit wijzigen in PrintOut indien Oké!
controle = MsgBox("Is alles goed verlopen?", vbYesNo)
If controle = vbNo Then Exit Sub
Application.DisplayAlerts = False
Application.Quit
End Sub

Dan geeft hij een fout aan

Complieer fout er word end sub verwacht

wat heb ik fout gedaan

 

[Cobbe]

Je hebt 2 opdrachten achter elkaar en 1 x zonder End sub.

Haal deze regel weg:

Sub afdruk_Controle()

Cobbe

 

[patrickje]

Sorry Mijn fout ik had ActiveX-besturingselement gepakt.

Ik zie dubbel geloof ik naar heel de tijd puzzelen

Bedankt voor je hulp

M.V.G.

Patrick