Print actie afhankelijk van waarde cel

[buckeru]

Beste,

Aan de hand van de waarde uit Cel D7 a,b,c of d
moet het bereik van het corresponderende tabblad geprint worden.


moet met een macro knop gebeuren, wie kan mij daar mee helpen?

grtn Buck

 

[Cobbe]

Test deze eens:

Sub Test_print()

' SelectedSheets.PrintOut Copies:=1
 With Sheets("Invoer")
  If .Range("D7") <> "" Then
    Range("AFDRUK_" & UCase(Range("D7").Value)).PrintPreview
 
 ' Wissen invoer blad
    
    .Range("Wissen").ClearContents   'wissen naamvak/bereik D7 F7 H7 J7
 
  End If
 End With
End Sub

 

[buckeru]

Lijkt veel belovend, als ik a en c kies gaat het goed maar
als ik b of d kies krijg ik deze melding
Methode Range van object_Global is mislukt.

als ik echt wil printen moet toch die printpreview veranderd worden in print

 

[Cobbe]

Dat komt doordat het afdrukbereik van beide ranges niet AFDRUK maar AFRDUK heten.
Als je dat aanpast werken die 2 ook goed.

En natuurlijk die PrintPrview wijzigen in Printout

 

[buckeru]

thanks Cobbe, het werkt.
ga het nu proberen toe te passen op het juiste bestand

beetje dom van mij die typ fout
ik zet hem op opgelost