megoldást keresek erre a problémára
-
#1546
Nem tudom kipróbálni, mert itt nincs nyomtatóm.
A makrót az első laphoz rendeld (lapfülön jobb klikk, Kód megjelenítése – ezzel bejutsz a VB szerkesztőbe –, a jobb oldalon kapott üres lapra másold be.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lapnev$
If Target.Address = "$A$1" Then
lapnev$ = Cells(1)
On Error GoTo Hiba
Sheets(lapnev$).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Hiba:
End Sub