GoldenLine
Zaloguj się
Anna Klima

Anna Klima

Temat: Drukowanie zakresu komórek

Dzień dobry,

Poniżej kod który drukuje zakres arkusza w zależności od wartości podanych w komórce A1.
Case 1 - 1 strona
Case 2 - 2 strony
Problem pojawia mi się jeśli Case =0, w tym przypadku należy pominąć drukowanie arkusza. bardzo proszę o pomoc

Sub Drukuj()
Zakres = Sheets("Drukuj").Cells(1, 1).Value
Select Case Zakres

Case 1
Sheets("Drukuj").PageSetup.PrintArea = "$B$2:$cw$81"
Case 2
Sheets("Drukuj").PageSetup.PrintArea = "$B$2:$cw$162"
End Select
Sheets("Drukuj").PrintOut Copies:=1

End Sub
Link do wypowiedziLink
Marzanna Szulta

Marzanna Szulta właściciel, Usługi
Informatyczne
SZULTASET

Temat: Drukowanie zakresu komórek

Np. tak:


Sub Drukuj()

Zakres = Sheets("Drukuj").Cells(1, 1).Value

Select Case Zakres

Case 0

exit sub

Case 1

Sheets("Drukuj").PageSetup.PrintArea = "$B$2:$cw$81"

Case 2

Sheets("Drukuj").PageSetup.PrintArea = "$B$2:$cw$162"

End Select

Sheets("Drukuj").PrintOut Copies:=1



End Sub
Link do wypowiedziLink
Anna Klima

Anna Klima

Temat: Drukowanie zakresu komórek

Dzień dobry,

dziękuje, kod działa. Może mi Pani jeszcze pomóc w jednym temacie, potrzebuje wydrukować dwa odrębne zakresy np. jak poniżej, niewiem jak to zapisać

Case 1

Sheets("Drukuj").PageSetup.PrintArea = "$B$2:$cw$81"

Sheets("Drukuj").PageSetup.PrintArea ="$B$83:$cw$154"
Link do wypowiedziLink
Marzanna Szulta

Marzanna Szulta właściciel, Usługi
Informatyczne
SZULTASET

Temat: Drukowanie zakresu komórek

Można tak:
Sheets("Drukuj").PageSetup.PrintArea = "$B$2:$cw$81,$B$83:$cw$154"
Link do wypowiedziLink
Anna Klima

Anna Klima

Temat: Drukowanie zakresu komórek

dziękuje, działa
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

Makro do zmiany zakresu kom...




Wyślij zaproszenie do
Anuluj