Hozzászólás: [Resolved] VBA userform felületről indított nyomtatás

Szia,

Na most ez van:
Private Sub Nyomtatás_Click()
If ComboBox1 = „Január” Then
Sheets(„Cseppentés01”).ChartObjects(1).Activate
ExecuteExcel4Macro „PRINT(1,,,1,,,,,,,,2,,,FALSE,,TRUE)”
End If
If ComboBox1 = „Február” Then
Sheets(„Cseppentés02”).ChartObjects(1).Activate
ExecuteExcel4Macro „PRINT(1,,,1,,,,,,,,2,,,TRUE,,TRUE)”
End If
End Sub

Már csak azt kellene neki mondanom, hogy fekvőbe nyomtasson. Esetleg lehet úgy, is hogy kérdés nélkül ezt tegye? Ha nem max felhozná, és én ráklikkelnék, hogy fekvő legyen. Ebben is tudnál segíteni? Lassan már jövök 1 kólával Neked 😀

Köszönöm!