< návrat zpět
MS Excel
Téma: Úprava Makra - Tisk 
Zaslal/a radekb 9.3.2010 10:29
Zdravím, potřebuji poupravit nebo zcela změnit toto Makro:
If (Range("A63") = "") Then
Range("A1:S62").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$62"
Application.Run "Protokol.xls!Tisk"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
Range("A1:S134").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$134"
Application.Run "Protokol.xls!Tisk"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
Jde mi o to že když mám na listu nějaké data na druhé stránce tak aby byli vytištěny dvě stránky. Pokud ne tak vytisknout pouze jednu stranu.
Jeza.m(9.3.2010 19:57)#001333 
Nevím jestli chápu v čem je problém, jestli v tom ověření dat, nebo v tom tisku.
If Application.WorksheetFunction.CountA(Range("$A$63:$S$134")) > 0 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$62"
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = "$A$63:$S$134"
ActiveSheet.PrintOut
Else
ActiveSheet.PageSetup.PrintArea = "$A$1:$S$62"
ActiveSheet.PrintOut
End Ifcitovatkolokol(9.3.2010 20:02)#001334 
Tak jsem se na to koukl, jak jsem slíbil, ale moc nerozumím zadání. Možná i pro druhé by bylo vhodné tu úlohu víc přiblížit. A nebo počkat, třeba se ozve někdo důvtipnější ...
citovatradekb(10.3.2010 7:38)#001335 Jsem trumbera.Šlo o to aby se mi po ověření konkrétní buňky A63(která se nachází na druhé stránce) v případě prázdné buňky vytiskla jen jedna stránka. V případě že se v buňce nachází číslo tak tisk obou stránek.Samozřejmě mám další data na druhé stránce i v jiných buňkách, jinak by se mě jen jedna stránka vytiskla automaticky a nemusel bych to ověřovat podmínkou že
Děkuji všem za odpovědi a příště budu líp popisovat problém.
citovat
RSS nejnovější články