vba print selectie onderelkaar

[Geminite]

Beste helpers,

Helaas kon ik niet een post vinden waar mijn zoektocht naar was, dus dan maar billen bloot en zelf vragen.

Ik wil het volgende doen.

Zodra men opslaat door middel van een button wil ik dat hij meteen een selectie kolommen print en voor het printen 1 kolom de grootte veranderd en Bold.

TS Vraag : moet ik in de opslaan macro de benodigde waardes opslaan op een ander blad voor de format (in voorbeeld blad 2) en een printopdracht geven voor die pagina ?

Private Sub CommandButton1_Click()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$D$6"
        .PrintOut , Copies:=1
    End With
End Sub

TS Vraag 2: Aangenomen dat vraag 1 als ja beantwoord word, is bovenstaande code goed genoeg om te printen (uiteraard wel verwijzing aanpassen naar de correcte blad).

TS Vraag 3: iemand een link over VBA en aanpassen lettersize+bold (google blijft printformat geven).

Alvast bedankt voor de hulp

 

[Geminite]

Ik heb het werkend, maar wel met een aparte sheet.

De formule voor latere zoekers:

    KolomG = bridge.KolomG.Value
    KolomL = bridge.KolomL.Value
    KolomE = bridge.KolomE.Value

    Worksheets("TEMP").[B2] = KolomG 
    Worksheets("TEMP").[B4] = KolomL
    Worksheets("TEMP").[B6] = KolomE
End If
    Worksheets("TEMP").PageSetup.Orientation = xlLandscape
    Worksheets("TEMP").PrintOut

Maar de vraag blijft uit intresse. Kan dit niet zonder een aparte sheet (landscape instelling zal moeilijk worden)?

 

[Revdutchie]

TS Vraag 3: iemand een link over VBA en aanpassen lettersize+bold (google blijft printformat geven).

Alvast bedankt voor de hulp

stukje uit een programma wat ik heb

If [C3] <= 30 Then [B3].Interior.ColorIndex = 3
If [C3] <= 30 Then [B3].Font.Size = 30
If [C3] <= 30 Then [B3].Font.Bold = True

je kan ook hier kijken
http://www.developerfusion.com/article/35/vba-in-excel/6/

 

[Geminite]

Bedank voor de link, top. Mijn oplossing op het moment was de format van de cells aantepassen.