Excel - zvýšení čísla o 1 při tisku

ještě jednodušeji je to možné udělat tady tak :

Makro umístěte do objektu ThisWorkbook, BeforePrint, přesně tak, jak vidíte na obrázku.

Tisk listu vám zvýší hodnotu v buňce A1 o jedničku.

*

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("a1").Value = Range("a1").Value + 1
End Sub

Přes standardní tisk to asi nepůjde. Šlo by to ale řešit makrem, které spustí tisk dokumentu a inkrementuje zvolenou buňku. Makro se spustí tlačítkem umístěným v listu. Bude jenom potřebné si zvyknout na to, že tisknu tímto tlačítkem a ne z menu Excelu.

... velmi jednoduše by to šlo takto:

Sub Makro1()
ActiveWindow.SelectedSheets.PrintOut
Range("A1").Select
ActiveCell = ActiveCell + 1
End Sub

Makro vytiskne aktivní list excelu na výchozí tiskárnu ve windows a buňku A1 zvětší o 1