Office: Drucken-Schaltfläche

Helfe beim Thema Drucken-Schaltfläche in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich will mir in Excel einen Button anlegen, der einen Druckauftrag sofort an den Plotter schickt und druckt. Folgendes habe ich mit... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von ms-office-nutzer, 29. November 2016.

Seite 1 von 2

MS-OFFICE-NUTZER

ms-office-nutzer

Drucken-Schaltfläche

Hallo zusammen,

ich will mir in Excel einen Button anlegen, der einen Druckauftrag sofort an den Plotter schickt und druckt. Folgendes habe ich mit dem Makrorekorder aufgezeichnet.

Code:

Application.ActivePrinter = "Druckername"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""Druckername"",,TRUE,,FALSE)"
Application.WindowState = xlMinimized
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auf meinem PC funktioniert das auch, aber bei einem Kollegen dann leider nicht mehr. Folgende Ursache habe ich dabei ausmachen können:
Als Papierformat habe ich ein Sonderformat (330x841) im Querformat eingestellt. Das wurde durch den Makrorekorder leider nicht mit aufgezeichnet. Wie lege ich das im VBA-Code fest?

Lässt sich der obenstehende Code vereinfachen? Ich weiß ja, dass der Makrorekorder nicht immer den optimalen Code im Sinne der Programmierung notiert.

Viele Grüße

:)

ms-office-nutzer, 29. November 2016

#1
Hajo_Zi Erfahrener User

warum nicht das Schnelldrucksymbol in die Schnellstartleiste?

Hajo_Zi, 1. Dezember 2016

#2
MS-OFFICE-NUTZER

ms-office-nutzer

Werter Hajo,

es ist ein Sonderformat notwendig (330x841). Das bei jedem Kollegen einzurichten (es sind viele Kollegen) ist zu aufwendig. Dieses Format wird in der Mappe nun mal leider nicht gespeichert. Ein Makro sehe ich da als den schnelleren Weg.

Viele Grüße

ms-office-nutzer, 1. Dezember 2016

#3
R J

R J

Drucken-Schaltfläche

Hi,

dieser Link dürfte kaum einen Wunsch zum Thema Drucken offenlassen....*wink.gif*

R J, 1. Dezember 2016

#4
MS-OFFICE-NUTZER

ms-office-nutzer

Danke für den Link. Hat mir in einiger Hinsicht weitergeholfen.

Ich komme allerdings bezüglich des Papierformats nicht wirklich weiter. Folgendes habe ich mir zusammengesucht:
Code:

Sheets(3).PageSetup.PaperSize = xlPaperUser(330#, 841#)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie gesagt, ich brauche ein Papierformat von 330 x 841.

Sobald ich die Prozedur starte markiert er "xlPaperUser" und meldet mir "Fehler beim Kompilieren: Erwartet: Datenfeld". Wo liegt mein Fehler? Wie kann ich das Papierformat von 330 x 841 richtig im VBA Code implementieren?

ms-office-nutzer, 1. Dezember 2016

#5
R J

R J

...hast Du den Hinweis beachtet, dass Excel kein Printerobjekt kennt?
Du musst das Printerobjekt über den Umweg Word oder Access erstellen...

Wenn Du die Einstellungen des Druckers (z. Bsp. das Papierformat) ändern willst, dann schau Dir mal die Links im Thread #6 und #8 aus o.g. Link genauer an.

R J, 1. Dezember 2016

#6
R J

R J

...Probier mal folgendes (aber ohne Garantie und evtl. anpassen)

Code:

Sub ChangePrinterserttings()
Dim oApp As Object
Dim Aktdrucker As Object
Dim höhe#, breite#, ausrichtung

Set oApp = CreateObject("Access.Application")

Dim var
For Each var In oApp.printers
' Debug.Print var.devicename, var.DriverName, var.port
If var.devicename = "HPD790AA (HP Officejet J4680 series)" Then 'devicename anpassen
Set Aktdrucker = var: Exit For
End If
Next

With Aktdrucker
' Debug.Print .devicename, .PaperSize, .Orientation, .ItemSizeHeight, .ItemSizeWidth
'alte Angaben speichern
ausrichtung = .Orientation
höhe = .ItemSizeHeight
breite = .ItemSizeWidth

'Neue Angaben setzen

.Orientation = 2
.defaultsize = False
.ItemSizeHeight = 841
.ItemSizeWidth = 330

'und hier den Druck starten....

ActiveWindow.SelectedSheets.PrintOut Copies:=1

'hier evtl. prüfen, ob Druckerpool noch gefüllt ist, und erst dann weitermachen. Musst Du halt mal ausprobieren...

'danach alte Angaben wiederherstellen
' Debug.Print .devicename, .PaperSize, .Orientation, .ItemSizeHeight, .ItemSizeWidth
.Orientation = ausrichtung
.ItemSizeHeight = höhe
.ItemSizeWidth = breite
.defaultsize = True
' Debug.Print .devicename, .PaperSize, .Orientation, .ItemSizeHeight, .ItemSizeWidth

End With

Set oApp = Nothing
Set Aktdrucker = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

R J, 2. Dezember 2016

#7
MS-OFFICE-NUTZER

ms-office-nutzer

Drucken-Schaltfläche

Ich habe mir die Links und die darin enthaltenen Beschreibungen noch einmal genauer angeschaut.

Ich habe dort nach "PaperSize" im VBA Text gesucht, doch ich finde nirgendwo einen passenden Ansatz.

Wenn ich auf dem Holzweg sein sollte, dann bitte ich nochmals um Hilfe.

ms-office-nutzer, 2. Dezember 2016

#8
R J

R J

...Papersize führt offenbar in eine Sackgasse. Hab mich diesbezüglich selbst einmal umgesehen. Ohne Erfolg. Hast Du meinen letzten Code mal ausprobiert? Da werden die ItemSizeHeight und ItemSizeWidth Eigenschaften des Printerobjekts geändert (und die Änderung dann auch korrekt in der debug.print Anweisung wiedergegeben).

R J, 2. Dezember 2016

#9
MS-OFFICE-NUTZER

ms-office-nutzer

Danke nochmal für deinen Hinweis. Ich war zu sehr auf "PaperSize" fixiert. Deinen Code hatte ich nicht gesehen, weil ich vergessen hatte die Seite zu aktualisieren *Smilie .

Nun habe ich deinen Code getestet und stelle fest, dass auf den Rechnern kein Access installiert ist. Da kriege ich bei der Zeile Probleme:
Code:

Set oApp = CreateObject("Access.Application")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Deswegen hatte ich das einfach wie folgt umgeschrieben
Code:

Set oApp = CreateObject("Excel.Application")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber dann kriege ich hier Probleme:
Code:

For Each var In oApp.printers
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da meldet er mir "Objekt unterstützt diese Eigenschaft oder Methode nicht". Das ist dann wahrscheinlich das was du mit "Excel kennt kein Printerobjekt" meintest?

Gibt es vielleicht noch einen anderen Weg? Access findet hier auf den PC's keine Verwendung und ist deshalb vom Admin auch nicht installiert worden.

ms-office-nutzer, 6. Dezember 2016

#10
R J

R J

...smile.. ja, mit Excel bekommst Du da Probleme. Und zwar, weil Excel kein Printerobjekt kennt (Ansonsten bräuchten wir ja nicht den Umweg über Access machen und könnten gleich das Excel-Printerobjekt nutzen.) *wink.gif*
Das hattest Du also schon ganz richtig erkannt....

Wenn Access nicht installiert ist, geht auch Word. Word wird ja wohl installiert sein. Also:
Code:

Set oApp = CreateObject("Word.Application")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dann sollte es gehen...

R J, 6. Dezember 2016

#11
MS-OFFICE-NUTZER

ms-office-nutzer

Habe es jetzt mit
Code:

Set oApp = CreateObject("Word.Application")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

getestet und bekomme die Meldung »Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht« . Word ist aber installiert. Kann es daran liegen, dass ich Office 2007 habe und dies zu alt ist? Bin für jede weitere Hilfe dankbar.

PS: Damit ich dich jetzt richtig verstanden habe. Ich kann den Code »Set oApp = CreateObject("Word.Application")« bei Excel in die VBA-Umgebung einfügen, auch obwohl da "Word.Application" steht? Oder muss ich Excel dazu bewegen ein Word-Dokument zu öffnen und lasse den Algorithmus dann in der Word-Umgebung laufen?

ms-office-nutzer, 6. Dezember 2016

#12
R J

R J

Drucken-Schaltfläche

...Mist! Habe es auch nochmal versucht. Auch über Einbindung diverser DLL's. Damit bekomme ich zwar diverse Druckereinstellungen geändert, allerdings wirken die sich offenbar nicht Excel aus.
Da die Druckerei ja sowieso ein sehr komplexes, schwer überschaubares und vor allem unzureichend dokumentiert ist, selbst im Netz findet man kaum etwas passendes, kann ich Dir leider doch nicht weiterhelfen. Der einzige Ausweg aus meiner Sicht wäre, eine eigener DLL zu schreiben. Aber.... die müsste ja auch wieder von Eurem Admin abgesegnet werden und ich befürchte, der Aufwand wäre immens....
Trotzdem.... good Look! Vielleicht weiß ja jemand anders Rat. Lass es mich wissen....

R J, 6. Dezember 2016

#13
R J

R J

...ich hätte hier noch einen letzten, verzweifelten Versuch. Hab ich weder optimiert noch ausprobiert. Mit etwas Glück könnte es aber funktionieren.
Ich speichere das aktive Blatt als PDF, passe die Druckereinstellungen an, drucke das pdf, setze Druckereinstellungen zurück...
Lass es mich wissen, ob es geklappt hat...
Code:

'Adaptierte Originalquelle: https://support.microsoft.com/de-de/kb/828638

Option Explicit

Public Type PRINTER_DEFAULTS

pDatatype As Long
pDevmode As Long
DesiredAccess As Long
End Type

Public Type PRINTER_INFO_2
pServerName As Long
pPrinterName As Long
pShareName As Long
pPortName As Long
pDriverName As Long
pComment As Long
pLocation As Long
pDevmode As Long ' Pointer to DEVMODE
pSepFile As Long
pPrintProcessor As Long
pDatatype As Long
pParameters As Long
pSecurityDescriptor As Long ' Pointer to SECURITY_DESCRIPTOR
Attributes As Long

Priority As Long
DefaultPriority As Long
StartTime As Long
UntilTime As Long
Status As Long
cJobs As Long
AveragePPM As Long
End Type

Public Type DEVMODE
dmDeviceName As String * 32

dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * 32
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
dmICMMethod As Long
dmICMIntent As Long
dmMediaType As Long
dmDitherType As Long
dmReserved1 As Long
dmReserved2 As Long
End Type

Public Const DM_DUPLEX = &H1000&
Public Const DM_IN_BUFFER = 8

Public Const DM_OUT_BUFFER = 2
Public Const PRINTER_ACCESS_ADMINISTER = &H4
Public Const PRINTER_ACCESS_USE = &H8
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)

Public Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long

Public Declare Function DocumentProperties Lib "winspool.drv" Alias "DocumentPropertiesA" (ByVal hwnd As Long, ByVal hPrinter As Long, ByVal pDeviceName As String, _
ByVal pDevModeOutput As Long, ByVal pDevModeInput As Long, ByVal fMode As Long) As Long

Public Declare Function GetPrinter Lib "winspool.drv" Alias "GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal cbBuf As Long, pcbNeeded As Long) As Long

Public Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long

Public Declare Function SetPrinter Lib "winspool.drv" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal cbLength As Long)

Public hAlt As Integer, bAlt As Integer

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Rückgabekonstanten:

Const ERROR_BAD_FORMAT = 11& ' Datei ist keine Win32 Anwendung

Const SE_ERR_ACCESSDENIED = 5 ' Zugriff verweigert

Const SE_ERR_ASSOCINCOMPLETE = 27 ' Datei-Assoziation ist unvollständig

Const SE_ERR_DDEBUSY = 30 ' DDE ist nicht bereit

Const SE_ERR_DDEFAIL = 29 ' DDE-Vorgang gescheitert

Const SE_ERR_DDETIMEOUT = 28 ' DDE-Zeitlimit wurde erreicht

Const SE_ERR_DLLNOTFOUND = 32 ' benötigte DLL wurde nicht gefunden

Const SE_ERR_FNF = 2 ' Datei wurde nicht gefunden

Const SE_ERR_NOASSOC = 31 ' Datei ist nicht Assoziiert

Const SE_ERR_OOM = 8 ' Nicht genügend Speicher

Const SE_ERR_PNF = 3 ' Pfad wurde nicht gefunden

Const SE_ERR_SHARE = 26 ' Sharing-Verletzung

Const SE_ERR_RESOURCE = 0 'Zuwenig Systemresourcen stehen zur Verfügung

Sub DruckealsPDF()
Dim l As Long, dat$, devname$
dat = VBA.Left(ThisWorkbook.FullName, VBA.Len(ThisWorkbook.FullName) - 4) & "pdf"

devname = ErmittleDrucker

SetPrinterEinstellungen devname, 1, 330, 841, True, 2

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dat
l = DateiStarten(dat, , "Print")

Select Case l

Case SE_ERR_NOASSOC

MsgBox "Datei ist mit keiner Anwendung assoziiert :" & vbLf & dat, vbInformation, "Fehler"

Case SE_ERR_PNF

MsgBox "Pfad wurde nicht gefunden ", vbInformation, "Fehler"

Case SE_ERR_FNF

MsgBox "Datei wurde nicht gefunden : " & vbLf & dat, vbInformation, "Fehler"

Case 8, 26, 32, 28, 29, 30, 27, 5, 11 ' alle anderen Fehler

End Select
SetPrinterEinstellungen devname, 1, hAlt, bAlt, False, 1

End Sub

Function DateiStarten(fullPath As String, Optional ByVal WindowStyle As VbAppWinStyle = vbNormalFocus, Optional ByVal Operation As String = "open") As Long

DateiStarten = (ShellExecute(0&, Operation, fullPath, vbNullString, vbNullString, WindowStyle) > 32)
End Function

Function ErmittleDrucker() As String

Dim oWord As Object
Dim devname As String

Set oWord = CreateObject("Word.application")
oWord.Quit
Set oWord = Nothing
ErmittleDrucker = devname
End Function

' ==================================================================
' SetPrinterEinstellungen.
'
' Programmatically set the Duplex flag for the specified default properties
' of the printer driver.
'
' Returns: True on success and False on error. An error also

' displays a message box. This message box is displayed for information
' only. You must modify the code to support better error
' handling in your production application.
'
' Parameters:
' sPrinterName - The name of the printer to be used.
'
' nDuplexSetting - One of the following standard settings:
' 1 = None
' 2 = Duplex on long edge (book)
' 3 = Duplex on short edge (legal)
'
' Höhhe - Seitenhöhe
' breite - Seitenbreite
'
' merkeAlt - sollen alte Höhen und BreitenaNGABEN GESPEICHERT WERDEN

' ausrichtung -
' 1 = Hochformat
' 2 = Querformat
'
' '
' ==================================================================

Public Function SetPrinterEinstellungen(ByVal sPrinterName As String, ByVal nDuplexSetting As Long, ByVal Höhe As Integer, breite As Integer, merkeAlt As Boolean, ausrichtung As Integer) As Boolean

Dim hPrinter As Long
Dim pd As PRINTER_DEFAULTS
Dim pinfo As PRINTER_INFO_2
Dim dm As DEVMODE

Dim yDevModeData() As Byte
Dim yPInfoMemory() As Byte
Dim nBytesNeeded As Long
Dim nRet As Long, nJunk As Long

On Error GoTo cleanup

If (nDuplexSetting < 1) Or (nDuplexSetting > 3) Then
MsgBox "Error: dwDuplexSetting is incorrect."
Exit Function
End If

pd.DesiredAccess = PRINTER_ALL_ACCESS
nRet = OpenPrinter(sPrinterName, hPrinter, pd)
If (nRet = 0) Or (hPrinter = 0) Then
If Err.LastDllError = 5 Then
MsgBox "Access denied -- See the article for more info."
Else
MsgBox "Cannot open the printer specified " & _
"(make sure the printer name is correct)."
End If
Exit Function
End If

nRet = DocumentProperties(0, hPrinter, sPrinterName, 0, 0, 0)
If (nRet < 0) Then
MsgBox "Cannot get the size of the DEVMODE structure."
GoTo cleanup
End If

ReDim yDevModeData(nRet + 100) As Byte
nRet = DocumentProperties(0, hPrinter, sPrinterName, _
VarPtr(yDevModeData(0)), 0, DM_OUT_BUFFER)
If (nRet < 0) Then
MsgBox "Cannot get the DEVMODE structure."
GoTo cleanup
End If

Call CopyMemory(dm, yDevModeData(0), Len(dm))

If Not CBool(dm.dmFields And DM_DUPLEX) Then
MsgBox "You cannot modify the duplex flag for this printer " & _
"because it does not support duplex or the driver " & _
"does not support setting it from the Windows API."
GoTo cleanup
End If

If merkeAlt Then
hAlt = dm.dmPaperLength: bAlt = dm.dmPaperWidth
End If

' dm.dmDuplex = nDuplexSetting
' dm.dmPaperLength = Höhe
' dm.dmPaperWidth = breite
Debug.Print "Ausrichtung: " & dm.dmOrientation, Höhe, breite
Call CopyMemory(yDevModeData(0), dm, Len(dm))

nRet = DocumentProperties(0, hPrinter, sPrinterName, _
VarPtr(yDevModeData(0)), VarPtr(yDevModeData(0)), _
DM_IN_BUFFER Or DM_OUT_BUFFER)

If (nRet < 0) Then
MsgBox "Unable to set duplex setting to this printer."
GoTo cleanup
End If

Call GetPrinter(hPrinter, 2, 0, 0, nBytesNeeded)
If (nBytesNeeded = 0) Then GoTo cleanup

ReDim yPInfoMemory(nBytesNeeded + 100) As Byte

nRet = GetPrinter(hPrinter, 2, yPInfoMemory(0), nBytesNeeded, nJunk)
If (nRet = 0) Then
MsgBox "Unable to get shared printer settings."
GoTo cleanup
End If

Call CopyMemory(pinfo, yPInfoMemory(0), Len(pinfo))
pinfo.pDevmode = VarPtr(yDevModeData(0))
pinfo.pSecurityDescriptor = 0
Call CopyMemory(yPInfoMemory(0), pinfo, Len(pinfo))

nRet = SetPrinter(hPrinter, 2, yPInfoMemory(0), 0)
If (nRet = 0) Then
MsgBox "Unable to set shared printer settings."
End If

SetPrinterEinstellungen = CBool(nRet)
Debug.Print "Ausrichtung: " & dm.dmOrientation, Höhe, breite

cleanup:
If (hPrinter 0) Then Call ClosePrinter(hPrinter)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ach ja, Startprozedur ist: DruckealsPDF

R J, 7. Dezember 2016

#14
MS-OFFICE-NUTZER

ms-office-nutzer

Danke für die Rückmeldung. Folgende Zeilen werden bei mir allerdings immer rot angezeigt:
Code:

Public Const DM_DUPLEX = &H1000&
Public Const DM_IN_BUFFER = 8

Public Const DM_OUT_BUFFER = 2
Public Const PRINTER_ACCESS_ADMINISTER = &H4
Public Const PRINTER_ACCESS_USE = &H8
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe keine Erklärung wieso?

Ich habe den gesamten Code durchsucht, doch ich finde nirgendwo ein "ItemSizeHeight" oder "ItemSizeWidth", um die Papiergröße einzustellen. Wo mache ich das in diesem Code?

ms-office-nutzer, 12. Dezember 2016

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Drucken-Schaltfläche

Die Seite wird geladen...

Drucken-Schaltfläche - Similar Threads - Drucken Schaltfläche
Die Schaltfläche "Drucken" und einige Druckereinstellungen sind nicht verfügbar
in Microsoft Word Tutorials
Die Schaltfläche "Drucken" und einige Druckereinstellungen sind nicht verfügbar: Die Schaltfläche "Drucken" und einige Druckereinstellungen sind nicht verfügbar Word für Microsoft 365 Word 2019 Word 2016 Word 2013 Word 2010 Word...
Schaltfläche für Drucken und Schließen in Berichtsansicht bei ausgeblendetem Menüband
in Microsoft Access Hilfe
Schaltfläche für Drucken und Schließen in Berichtsansicht bei ausgeblendetem Menüband: Hallo Forum, um mehr Platz auf dem Bildschirm zu haben, lasse ich das Menüband per VBA ausblenden: Code: 'Menüband ausblenden If CommandBars("Ribbon").Visible = True Then DoCmd.ShowToolbar...
Drucken von auswählbaren Tabellenblättern
in Microsoft Excel Hilfe
Drucken von auswählbaren Tabellenblättern: Hallo zusammen Ich habe folgendes Sachverhalt. Habe eine Excel-Datei mit vielen Tabellenblättern. Diese Tabellenblätter müssen je nach Wochentag separat ausgedruckt werden. z.b. Montags die...
bestimmte Arbeitsblätter an bestimmte Drucker senden
in Microsoft Excel Hilfe
bestimmte Arbeitsblätter an bestimmte Drucker senden: Hallo zusammen, ich habe folgendes vor, für das man vermutlich VBA benötigt. Das Ganze soll "DAU-sicher" sein :rolleyes: und deshalb die Idee das Ganze Buttons (VBA-kripte) zu lösen: Ich...
bestimmte Tabellenblätter mit Schaltfläche drucken (wenn Kontrollkästchen aktiviert)
in Microsoft Excel Hilfe
bestimmte Tabellenblätter mit Schaltfläche drucken (wenn Kontrollkästchen aktiviert): Hallo Zusammen, Ich möchte mit einer Schaltfläche auf Tabelle1 den Befehl geben, dass die Tabelle2 und Tabelle10 aufjedenfall gedruckt werden soll und die anderen Tabellen nur, wenn auf Tabelle1...
Excel bestimmte Tabellenblätter mittels Schaltfläche (VBA) drucken/ pdf drucken
in Microsoft Excel Hilfe
Excel bestimmte Tabellenblätter mittels Schaltfläche (VBA) drucken/ pdf drucken: Hallo zusammen, ich habe folgendes Problem und hoffe ihr könnt mir hierbei helfen. Ich möchte folgende Schaltflächen evtl. mit Steuerelement Toolbox und VBA generieren: 1. Tabellenblatt...
Ausgeblendetes Tabellenblatt über eine Schaltfläche drucken
in Microsoft Excel Hilfe
Ausgeblendetes Tabellenblatt über eine Schaltfläche drucken: Hallo, Ich hab eine Frage an euch: ich hab eine Exceldatei mit 8 Tabellenblätter, davon ist ein Tabellenblatt ausgeblendet. In diesem werden Daten der anderen Tabellen gesammelt. Nun möchte...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden