afdruk sheets

[stefano]

Ik beschik over een bestand met 4 tabbladen. Eerste tabblad (info) bestaat uit info. Hier wordt in cel M4 de keuze gemaakt uit een taal ( Nl, Fr, D ). Alle info wordt overgezet naar een tabblad A en naar een tabblad B (Nl), B (Fr) en B (D). (naar een nederlandstalige, franstalige en duitstalige versie dus).

A wordt altijd afgedrukt samen met 1 van de 3 B's, afhankelijk van de gekozen taal.

hieronder mijn code voor de afdruk van A en de B (Nl)

Private Sub Afdruk_Click()
    sheets(Array("A", "B (Nl)")).Select
    sheets("A").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    sheets("info").Select
    Range("A1").Select
End Sub

ik zou graag mijn code aanpassen naar afdrukken van A en de afdruk van het tabblad dat overeenstemt met de taalkeuze die ik maak op tabblad Info.

Kunnen jullie helpen ?

 

[Cobbe]

Sub Afdruk_Click()
      taal = Sheets("info").Range("M4")
      Sheets("Info").PrintOut
      Sheets(taal).PrintOut
End Sub

In M4 wordt toch de taalkeuze gemaakt?

Cobbe

 

[stefano]

Ja, na declaratie van de variabele werkt dit.

bedankt ! :thumb: