Excel range printen bepalen adv celadres met visual basic

[henkvanerp]

Hallo,

Ik wil een script waarin een afdruk (printje) wordt gemaakt op basis van 2 celadressen wat in 2 cellen wordt aangegeven dmv =adres.
Bijv. in A1 staat =adres(4;4), dus D4 en in A2 staat =adres(5:5), dus E5. Nu wil ik dat de range wordt bepaald op basis van celadressen zoals aangegeven in cel A1 en A2 zodat
de range D4:E5 wordt geprint. Graag hulp hierbij.

 

[peter59]

Hallo,

Misschien met deze code.

Sub PrintRange()
    Dim rng1 As Range, rng2 As Range
    Set rng1 = Range(Range("A1").Value)
    Set rng2 = Range(Range("A2").Value)
    Intersect(rng1, rng2).PrintOut
End Sub

 

[henkvanerp]

Hallo, mijn dank. Maar hoe nu verder met het aangeven van de Range?
Met regel: Intersect(rng1, rng2).PrintOut. Loopt deze vast.

Sub PrintRange()
Dim rng1 As Range, rng2 As Range
Set rng1 = Range(Range("A1").Value)
Set rng2 = Range(Range("A2").Value)
Range = rng1 & rng2.Select (zoiets maar dan verbeterd. Ik wil het ook gebruiken om een Range te kopiëren naar een ander blad)
End Sub

 

[peter59]

Misschien dit

Intersect(rng1, rng2).PrintOut

vervangen door

Application.Union(rng1, rng2).PrintOut

Als dat niet helpt dan even wachten op de echte VBA goeroes.

 

[edmoor]

Zo?

Sub PrintRange()
    ActiveSheet.Range(Range("A1") & ":" & Range("A2")).PrintPreview [COLOR="#008000"]'Of .PrintOut[/COLOR]
End Sub

 

[henkvanerp]

Bedankt ! Het werkt. En om het bereik te selecteren voor meerdere functies gebruik ik nu:
ActiveSheet.Range(Range("A1") & ":" & Range("A2")).Select '.PrintPreview of .PrintOut is ook erg handig.

 

[snb]

Of
in A1: "A4:K10"

Sub M_snb()
   Range(Cells(1)).PrintPreview
End Sub

Maar liever natuurlijk:

Sub M_snb()
   Application.InputBox("afdrukgebied", "snb", , , , , , 8).PrintPreview
End Sub