Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

str + p deaktivieren

str + p deaktivieren
30.12.2002 16:45:01
Ralf
Hallo,

möchte str + p noch unterdrücken. Konnte bis jetzt in der Recherche nur folgendes zusammentragen. Möchte insgesamt erreichen, dass etwas nicht mehr ausgedruckt werden kann außer über einen commandbutton. Die str + p funktion fehlt mir noch..

Kann mir einer helfen?

Application.CommandBars(1).Controls("Datei").Controls("Drucken...").Enabled = False
Application.CommandBars("Standard").Controls(5).Enabled = False
Application.CommandBars("Standard").Controls(6).Enabled = False
Application.CommandBars("Standard").FindControl(, 2521).Enabled = False

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: str + p deaktivieren
30.12.2002 16:49:55
Steffen
Ich habs immer so gelöst:

Application.OnKey "^P", "makrowaslaufensoll"

ich würd bloß noch a Makro dahinterhängen was einen Hinweis bringt, vielleicht!!!

MsgBox("Das Ausdrucken ist hier nicht möglich")

MFG

Steffen

Re: str + p deaktivieren
30.12.2002 16:57:26
Georg_zi
Hallo Ralf

ein Variante damit es nur bei einer Datei verhindert wird.



' **************************************************************

'  Modul:  DieseArbeitsmappe  Typ = Element der Mappe(Sheet, Workbook, ...)

' **************************************************************
Option Explicit

	

Private Sub Workbook_BeforePrint(Cancel As Boolean)

	If Druck = False Then

		Cancel = True

	Else

		Druck = False

	End If

End Sub





' **************************************************************

'  Modul:  Tabelle1  Typ = Element der Mappe(Sheet, Workbook, ...)

' **************************************************************
Option Explicit

	

Private Sub CommandButton1_Click()

	Druck = True

	ActiveSheet.PrintOut

End Sub





' **************************************************************

'  Modul:  Modul1  Typ = Allgemeines Modul

' **************************************************************
Option Explicit

Public Druck As Boolean

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Der Druck erfolgt durch den CommandButton in der Tabelle.

Gruß Georg

Anzeige
Re: str + p deaktivieren
30.12.2002 17:30:45
Ralf
Hallo Steffen,

mein code sieht jetzt so aus, leider klappt es nicht. Kannst du mir nochmal kurz helfen..

Private Sub workbook_open()
Application.OnKey "^P", "keindruck"
End Sub

Private Sub keindruck()
MsgBox "kein druck möglich", vbOKOnly

End Sub

Re: str + p deaktivieren
30.12.2002 17:50:03
Herbert
Hallo Ralf,
Bei mir funktioniert das eigentlich nur so:

Option Explicit

Private Sub Workbook_Open()
Application.OnKey "^{p}", "keindruck"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{p}"
End Sub

     
Gruß Herbert
Anzeige
Mehrere Ursachen...
30.12.2002 17:54:02
Ramses
Hallo Steffen,

das muss im VB-Editor in "Diese Arbeitsmappe":

Private Sub workbook_open()
Application.OnKey "^P", "keindruck"
Application.OnKey "^p", "keindruck"
End Sub

und das muss in ein Modul

Private Sub keindruck()
MsgBox "kein druck möglich", vbOKOnly
End Sub

Das "P" ist Case-Sensitiv und bedeutet EXCLE wartet auf ein grosses P !!
Wenn es immer noch nicht funktioniert, Mappe mal schliessen und wieder öffnen, weil das Workbook_Open Ereignis erst beim öffnen der Mappe ausgeführt wird.


Zudem musst du beim Beenden oder Wechsel der Arbeitsmappe die Druckfunktionen unbedingt wieder aktivieren !!! sonst kann kein anderes Dokument ausgedruckt werden

Private Sub Workbook_Activate()
'Plus die ganze Aktion von Menu enablen usw.
Application.OnKey "^P", "keindruck"
Application.OnKey "^p", "keindruck"
End Sub


Private Sub Workbook_Deactivate()
Application.OnKey "^P", ""
Application.OnKey "^p", ""
End Sub

Private Sub Workbook_BeforeClose()
Application.OnKey "^P", ""
Application.OnKey "^p", ""
End Sub

Gruss Rainer

Anzeige
Re: Mehrere Ursachen...=>DANKE.
30.12.2002 17:57:56
Ralf
Nochmals vielen Dank, es klappt....
Dein Gewissen....
30.12.2002 18:08:59
L.Vira
Nicht korrekt, weil ausgehebelt:
Private Sub Workbook_Deactivate()
Application.OnKey "^P", ""
Application.OnKey "^p", ""
End Sub

Private Sub Workbook_BeforeClose()
Application.OnKey "^P", ""
Application.OnKey "^p", ""
End Sub
so muss es sein:
Private Sub Workbook_Deactivate()
Application.OnKey "^P"
Application.OnKey "^p"
End Sub

Private Sub Workbook_BeforeClose()
Application.OnKey "^P"
Application.OnKey "^p"
End Sub


Erwischt. Danke :-)) o.T.
30.12.2002 18:30:21
Ramses
...

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige