PDA

Vollständige Version anzeigen : Druckfunktinalität Makro deaktivieren


Marco_tesla
17.07.2006, 09:44
Hallo Ihr Cracks !!!

Ich habe in meine Arbeitsmappe verschiedene Funktinalitäten in die BeforePrint Sub hineingepackt und der Aufruf erfolgt über Buttons im Sheet.
So muss es realisiert sein und er Anwender soll die Standart Druckfunktionalitäten nicht mehr nutzen dürfen.

Also meine Frage (weiss dass es geht, nur nicht wie):

1.
Ich möchte das Symbol drucken in der Symbolsteiste ausgrauen

2.
Darüber hinaus soll ebenfalls unter Datei/Drucken... ebenfalls ausgeraut sein.

Hat jemand da freundlicherweise Code-Schnipsel für mich?


Wäre super !!!
Vielen Dank

Marco_tesla
17.07.2006, 09:47
Hallo Ihr Cracks !!!

Ich habe in meine Arbeitsmappe verschiedene Funktinalitäten in die BeforePrint Sub hineingepackt und der Aufruf erfolgt über Buttons im Sheet.
So muss es realisiert sein und er Anwender soll die Standart Druckfunktionalitäten nicht mehr nutzen dürfen.

Also meine Frage (weiss dass es geht, nur nicht wie):

1.
Ich möchte das Symbol drucken in der Symbolsteiste ausgrauen

2.
Darüber hinaus soll ebenfalls unter Datei/Drucken... ebenfalls ausgeraut sein.

Hat jemand da freundlicherweise Code-Schnipsel für mich?


Wäre super !!!
Vielen Dank

<font size="2" face="Century Gothic">Moderatorenanmerkung:
Beiträge zusammengeführt (1+3, 2+4+5 waren zusammen)
jinx</font>

Hajo_Zi
17.07.2006, 10:01
Hallo Marco,

das kannst Du Dir sparen. Definiere eine Variable als Boolean mit Public in einem Modul, setzte diese zu beginn in Deinem Makro auf True am Ende auf False.

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If BoDruck = False Then Cancel = True
End Sub

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="30" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="30" alt="Homepage"></a>

Schmali
17.07.2006, 15:11
Hi Marco,

probiers mal hiermit:

sub Druckendeaktivieren()
Application.CommandBars.FindControl(ID:=2521).Enabled = False
Application.CommandBars(1).Controls("Datei").Controls("Drucken...").Enabled = False
end sub


!! Nicht vergessen, mit =True die bei der beendigung der datei wieder zu aktivieren !!

greetz

schmali

Hajo_Zi
17.07.2006, 17:15
Hallo Marco,

ich bin mir eigentlich sicher das ich schon vor Stunden geantwortet habe.
Du brauchst das nicht abschalten.
<pre><span style="font-family=MS Sans Serif,Arial; font-size=10pt"; >

<b><span style="color:#008000"; >' **************************************************************
' Modul: DieseArbeitsmappe Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************</span></b>

<span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span>

<b><span style="color:#000080"; >Private</span> <span style="color:#000080"; >Sub</span> Workbook_BeforePrint(Cancel <span style="color:#000080"; >As</span> <span style="color:#000080"; >Boolean</span>)</b>
<span style="color:#000080"; >If</span> BoDruck = <span style="color:#000080"; >False</span> <span style="color:#000080"; >Then</span> Cancel = <span style="color:#000080"; >True</span>
<b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b>

<b><span style="color:#000080"; >Private</span> <span style="color:#000080"; >Sub</span> Workbook_Open()</b>

<b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b>
</span></pre><pre><span style="font-family=MS Sans Serif,Arial; font-size=10pt"; >

<b><span style="color:#008000"; >' **************************************************************
' Modul: Modul1 Typ = Allgemeines Modul
' **************************************************************</span></b>

<span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span>

<span style="color:#000080"; >Public</span> BoDruck <span style="color:#000080"; >As</span> <span style="color:#000080"; >Boolean</span>

</span></pre>
<br><span style=" font-weight:bold;"> Code eingef&uuml;gt mit: </span> <a style ="color:#ffff00; background-color:#000080; font-weight:bold;" href="http://www.haserodt.de/cj_pro/cj_ex.htm" target="blank">Excel Code Jeanie</a>

Setze zu Beginn vn Deinen Makr BoDruck auf true und am Ende wieder auf false.

<img src="http://home.media-n.de/ziplies/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://home.media-n.de/ziplies/" target="_blank"><img border="0" src="http://home.media-n.de/ziplies/images/logo_hajo.gif" align="middle" height="40" alt="Homepage"></a>