Inaktivera Utskrift

August 29

Om du skapar arbetsböcker som ska användas av andra, kan du vara intresserad av att inaktivera utskriftsalternativ (meny och verktygsfält) när ett särskilt arbetsbok är öppen. Det enklaste sättet att göra detta är att använda Auto_Open makrot (som löper omedelbart efter öppning av arbetsbok som innehåller det) för att göra menyn och verktygsfältet utskrift kommandon inte längre tillgänglig. Följande kommer att göra susen fint:

Sub Auto_Open ()
"Förhindra utskrift via menyn
Menyrader (xlWorksheet) .Menus ("File"). MenuItems ("Skriv ut ..."). Delete

"Stäng av Print ikon där det kan vara i verktygsfälten
För J = 1 Till Toolbars.Count
För K = 1 Till Verktygsfält (J) .ToolbarButtons.Count
Om verktygsrader (J) .ToolbarButtons (K) .Id = 2 Då
Verktygsfält (J) .ToolbarButtons (K) .Enabled = False
End If
Om verktygsrader (J) .ToolbarButtons (K) .Id = 3 Sedan
Verktygsfält (J) .ToolbarButtons (K) .Enabled = False
End If
Nästa K
Nästa J
End Sub

Du kan också skapa en speciell Auto_Close makro som återställer menyer och verktygsfält när arbetsboken är stängd:

Sub Auto_Close ()
"Återställ menyalternativ
För varje mb I menyrader
mb.Reset
Nästa mb

"Återställ knapparna
För J = 1 Till Toolbars.Count
För K = 1 Till Verktygsfält (J) .ToolbarButtons.Count
Om verktygsrader (J) .ToolbarButtons (K) .Id = 2 Då
Verktygsfält (J) .ToolbarButtons (K) .Enabled = True
End If
Om verktygsrader (J) .ToolbarButtons (K) .Id = 3 Sedan
Verktygsfält (J) .ToolbarButtons (K) .Enabled = True
End If
Nästa K
Nästa J
End Sub

Du bör notera att dessa makron bara köra när den specifika arbetsboken öppnas och stängs. Det innebär att din utskriftskapacitet kommer att vara otillgänglig så länge arbetsboken är öppen även för alla andra öppna arbetsböcker som du kan ha.

Ett annat tillvägagångssätt är att avbryta någon utskrift innan den startar. Följande är ett makro som du kan placera i en arbetsbok modul:

Private Sub Workbook_BeforePrint (Cancel As Boolean)
Cancel = Sant
End Sub

När någon försöker att skriva ut arbetsboken, är processen avbryts automatiskt. Annars menyalternativen och verktygsknappar förblir synliga. (Du kan också ändra makrot att inte bara avbryta men för att visa en meddelanderuta som anger att användarna inte får skriva ut.)

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (2556) gäller för Microsoft Excel 97, 2000, 2002, och 2003.