En lep pozdrav!
Na listu imam ukazni gumb za tiskanje. Kakšno kodo bi moral dodati, da se glava izpiše samo na prvi strani, na naslednjih pa ne?
Hvala!
BJ
Tiskanje glave
Nekaj takšnega:
Koda: Izberi vse
Public Sub SamoNaPrviStrani()
Dim sHeader As String
With ActiveSheet
sHeader = .PageSetup.LeftHeader
.PrintOut From:=1, To:=1
.PageSetup.LeftHeader = ""
.PrintOut From:=2
.PageSetup.LeftHeader = sHeader
End With
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator