Új hozzászólás Aktív témák

• #25127 Polllen félisten KaliJoe #25126

  Új Válasz 2015-01-21 09:04:00 #25127

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Polllen

  félisten

  válasz KaliJoe #25126 üzenetére

  Mindig ugyanazt a sheet-t akarod kinyomtatni?

  Ez alapján, igen:
  ...
  Dim wsh_Űrlap As Variant
  
  wsh_Űrlap = Worksheets("Űrlap Nyomtatáshoz")
  ...
  If ActiveWindow.SelectedSheets.PrintPreview(wsh_Űrlap) = True Then
  Worksheets("Alapértékek").Select
  ActiveSheet.Unprotect
  Worksheets("Alapértékek").Cells(4, "J").Value = Worksheets("Űrlap Nyomtatáshoz").Cells(2, "M").Value + 1
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
  ...

  Próbáld meg ezt:
  Dim wsh_Urlap As String
  
  wsh_Urlap = "Űrlap Nyomtatáshoz"
  ...
  If Worksheets(wsh_Urlap).PrintPreview = True Then
  Worksheets("Alapértékek").Select
  ActiveSheet.Unprotect
  Worksheets("Alapértékek").Cells(4, "J").Value = Worksheets("Űrlap Nyomtatáshoz").Cells(2, "M").Value + 1
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If

  Bár ha fix, változó sem kell.

Új hozzászólás Aktív témák