Помогнете
1 отговора
193 прегледа
Помогнете
Даскала ми иска да разпечатам една страница на EXEL,която е 200 реда и 5 колони,но като използвам VBA.Проблема ми е ,че не трябва да печатам всички
200 реда,а до първия празен ред.
for i = 1 to 200
if sheet1.cells(,[1]) = "" трябва да печата до ред i-1
Kак да посоча колона Е до кой ред да печати а да не е 200,
Sheet1.Activate
Sheet1.PageSetup.PrintArea = "$a$1:$е$200"
ActiveSheet.PrintOut


200 реда,а до първия празен ред.
for i = 1 to 200
if sheet1.cells(,[1]) = "" трябва да печата до ред i-1
Kак да посоча колона Е до кой ред да печати а да не е 200,
Sheet1.Activate
Sheet1.PageSetup.PrintArea = "$a$1:$е$200"
ActiveSheet.PrintOut
Re: Помогнете
демек проблема е как в "$a$1:$е$200" да смениш 200 с някаква променлива?
Ми то това си е стринг, може да правиш квото ти е кеф.
for i = 1 to 200
if sheet1.cells(,[1]) = "" then Exit For
next
Sheet1.Activate
Sheet1.PageSetup.PrintArea = "$a$1:$е$" & trim(str(i))
нещо такова ..
Ми то това си е стринг, може да правиш квото ти е кеф.
for i = 1 to 200
if sheet1.cells(,[1]) = "" then Exit For
next
Sheet1.Activate
Sheet1.PageSetup.PrintArea = "$a$1:$е$" & trim(str(i))
нещо такова ..