Printen met 2 voorwaarden

[wivoe]

Hallo,

Ik heb een bestand met 53 weekbladen genaamd wk1 t/m wk53. Nu had ik gedacht om in het Voorblad 2 keuzelijsten te zetten,
met in de ene de weekbladen wk1 t/m wk53 en in de andere 2 verschillende printer bereiken, b.v. A1:S38 en A1:S45.
Deze keuzelijsten zijn gekoppeld aan 2 cellen, tot zover geen probleem.

Is het mogelijk om met een Macro of VBA code de uitkomsten van de wk cel en de printrange cel in de Macro of VBA code te implementeren?

Bij voorbaat hartelijk dank,

Wim

 

[HSV]

sub printen()
 with sheets("voorblad")
    sheets(.range("a1").value).pagesetup.printArea = .range("a2").value
    sheets(.range("a1").value).printout
 end with
end sub

 

[wivoe]

Harry,

Hartelijk dank ga het direct proberen.

Wim

 

[wivoe]

Hallo Harry,

Het printen werkt niet. De uitkomsten van de keuzemenu's komen weekblad keuze in C12
en printrange uitkomst in E12.

Heb jouw code als onderstaand aangepast maar krijg de melding 'fout 1004'.

sub printen()
with sheets("Voorblad")
 sheets(.range("C12").value).pagesetup.printArea = .range("E12").value
 sheets(.range("E12").value).printout

end with

end sub

Waar heb ik de fout gemaakt?

Met vriendelijke groet,

Wim

 

[Timshel]

Het zou in ieder geval zo moeten:

Sub printen()
    With Sheets("Voorblad")
        Sheets(.Range("C12").Value).PageSetup.PrintArea = .Range("E12").Value
        Sheets(.Range("[COLOR="#FF0000"]C[/COLOR]12").Value).PrintOut
    End With
End Sub

Daarnaast vraag ik me af hoe het bereik in cel E12 er bij jou uitziet.
Test dit oefenbestand eens:

 

[wivoe]

Hallo Timshel,

Sorry dat ik nu pas reageer, heb de hele morgen last gehad van een storing
bij m'n provider en sinds een paar minuten weer online.

Ik ga je bijdrage vanmiddag proberen,

Alvast bedankt,

Groeten, Wim

 

[wivoe]

Hallo Timshel,

Ik heb even een voorbeeld bijgedaan hoe ik het gedacht had.

Groet, Wim

 

[HSV]

Het komt door de validatie uit formulierbesturingselementen.
Die geven niet de waarde van het getoonde, maar een waarde van keuzevolgorde.

Om te testen gebruik 'PrintPreview' ipv. 'PrintOut' om papier en inkt te besparen.

Sub printen()
    With Sheets("Voorblad")
        Sheets(.Range("N" & .Range("h11").Value).Value).PageSetup.PrintArea = .Range("O" & .Range("K11").Value)
        Sheets(.Range("N" & .Range("h11").Value).Value).Printout
    End With
End Sub

 

[wivoe]

Heren,

Hartelijk dank voor de moeite, het werkt prima. Weer wat geleerd.

Met vriendelijke groet,

Wim