bereik printen met ja/nee keuze voor printen

[adkliko]

Ik heb de volgende code.
echter krijg ik niet de vbno aan het werken.
wat doe ik fout?

Sub CommandButton1_Click()
  If MsgBox("Wilt u alles printen", vbQuestion + vbYesNo) = vbYes Then
  Else
  If Answer = vbNo Then GoTo einde
  End If
  Dim Ws As Integer
On Error GoTo einde
For Ws = 2 To 2
With Worksheets(Ws)
        .PageSetup.PrintArea = "$a$1:$u$68"
        .PrintOut , Copies:=1
        'beter is even .Printpreview
   .PageSetup.PrintArea = "$a$1:$k$68"
        .PrintOut , Copies:=1
        'beter is even .Printpreview
    End With
    Next
einde:
End sub

 

[OctaFish]

Is dit de letterlijke code? Want waarom heb je de printcode niet bij VbYes staan?
En wat doet hij wel/niet? Is niet duidelijk uit de vraag...

 

[adkliko]

Ja de is de orginele code was echter nog aan het experimenteren..
de bedoeling is dat als je op een button klikt eerst een msgbox opkomt die vraagt of je wilt printen ja of nee.
Bij JA moet hij de print opdracht uitvoeren.
Bij NEE stopt hij.

Sub CommandButton1_Click()
 Dim Ws As Integer
On Error GoTo einde
For Ws = 2 To 2
With Worksheets(Ws)
        .PageSetup.PrintArea = "$a$1:$u$68"
        .PrintOut , Copies:=1
        'beter is even .Printpreview
   .PageSetup.PrintArea = "$a$1:$k$68"
        .PrintOut , Copies:=1
        'beter is even .Printpreview
    End With
    Next
einde:
End sub

 

[HSV]

Je mag ook wel de moeite nemen om te reageren op je vorige vragen, en deze als opgelost te zetten als daarmee je vraag was beantwoord.

Sub printtest()
Dim Ws As Integer
  If MsgBox("Wilt u alles printen", vbQuestion + vbYesNo) = vbYes Then
    'On Error GoTo einde
  For Ws = 2 To 2
      With Worksheets(Ws)
        .PageSetup.PrintArea = "$a$1:$u$68"
        .PrintOut , Copies:=1
         '.PrintPreview
        .PageSetup.PrintArea = "$a$1:$k$68"
        .PrintOut , Copies:=1
        '.PrintPreview
      End With
    Next
    'einde:
  Else: Exit Sub
 End If
End Sub

Als het alleen maar om blad 2 gaat.

Sub printtest()
  If MsgBox("Wilt u alles printen", vbQuestion + vbYesNo) = vbYes Then
      With Worksheets(2)
        .PageSetup.PrintArea = "$a$1:$u$68"
        .PrintOut , Copies:=1
         '.PrintPreview
        .PageSetup.PrintArea = "$a$1:$k$68"
        .PrintOut , Copies:=1
        '.PrintPreview
      End With
  Else: Exit Sub
 End If
End Sub

 

[HSV]

Je mag ook wel de moeite nemen om te reageren op je vorige vragen, en deze als opgelost te zetten als daarmee je vraag was beantwoord.

Jammer voor een volgende vraag van je.
Dat je niet eens de moeite kunt nemen om te reageren.

 

[adkliko]

Beste Harry.

We zijn niet allemaal zo snel als jij.
Ik heb een andere oplossing gevonden.

Ik zal deze posten als ik weer op de zaak ben.
bedankt voor je input.

groetjes marcel

 

[HSV]

Beste Marcel,

citaat van persoonlijk mail:

Beste Harry

wat bedoel je precies met (Je mag ook wel de moeite nemen om te reageren op je vorige vragen, en deze als opgelost te zetten als daarmee je vraag was beantwoord.)
in post http://www.helpmij.nl/forum/showthread.php?t=565082&goto=newpost

zo ver ik weet heb ik alle beantwoorde topics op opgelost gezet.

groetjes marcel

Dan vermeld je dat gewoon in een reactie lijkt me.
Sommige vragen staan als opgelost gemarkeerd zonder enige reactie, en dat irriteert me een beetje.
En nu kom je met een bericht dat je een ander oplossing hebt gevonden, zonder het te posten wat voor oplossing.
Dan kun je dat ook vermelden toch?

Deze ook zonder reactie:
http://www.helpmij.nl/forum/showthr...aden-printen?p=3595766&highlight=#post3595766

Maar zoals je kunt opmaken uit mijn berichten, lok ik dat ook een beetje uit natuurlijk.