Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1684to1688
1684to1688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform wird nicht gedruckt sondern Tabelle

Forumthread: Userform wird nicht gedruckt sondern Tabelle

Userform wird nicht gedruckt sondern Tabelle
12.04.2019 09:19:38
Al
Hallo , habe schon viel gelernt durch euch , ist eine Super Sache mit der Plattform, ewtl könntet Ihr mir weiterhelfen, bitte. Ich habe eine Userform welche einen Drucker (tinte) ansteuert 2x. (Automatisch) Danach soll er wechseln und per freepdf Drucker ein PDF generieren, aber er generiert nicht die Userform sondern die Tabelle? wenn der PDFdrucker auf standart gesetzt ist funktioniert es, wo liegt der fehler?
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 11:17:52
Nepumuk
Hallo,
das ist normal. Ändere den Standarddrucker auch den PDF-Printer. Das geht auch per VBA.
Gruß
Nepumuk
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 13:58:30
Al
Hi Nepumuk danke für die schnelle Antwort :-)
Dim sngheight As Single, sngwidth As Single
sngheight = Me.Height
sngwidth = Me.Width
Zoom = 82
Me.Printform
sngheight = Me.Height
sngwidth = Me.Width
Zoom = 100
'ThisWorkbook.Save
Unload Me
Der Code dieser steuert ja den Standartdrucker an , (Standart PDF)
wie steuere ich den HP drucker an?
zur Vorgeschichte: :-)
Plan war das über einen Button die Userform angesteuert wird, diese druckt 1x an den PDF und 1x an HP... . sich dann wieder verschliest.
komm irgend wie nicht dahinter, mit der Ansteuerung.
Anzeige
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 14:07:07
Nepumuk
Hallo Al,
hilft dir das weiter?
Public Sub Printer_SetDefault_HP()
    Dim objWMI As Object, objItem As Object
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
        ExecQuery("SELECT * FROM Win32_Printer WHERE Name LIKE '%HP%'")
    For Each objItem In objWMI
        Call objItem.SetDefaultPrinter
    Next
    Set objWMI = Nothing
End Sub

Public Sub Printer_SetDefault_PDF()
    Dim objWMI As Object, objItem As Object
    Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _
        ExecQuery("SELECT * FROM Win32_Printer WHERE Name LIKE '%PDF%'")
    For Each objItem In objWMI
        Call objItem.SetDefaultPrinter
    Next
    Set objWMI = Nothing
End Sub

Wenn du mehrere HP- oder PDF-Drucker hast musst du das im LIKE-Statement genauer spezifizieren um den richtigen zu erwischen.
Gruß
Nepumuk
Anzeige
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 14:16:31
Al
werde es heute abend testen, sag dir dann bescheid
Danke :-)
AW: Userform wird nicht gedruckt sondern Tabelle
18.04.2019 16:25:38
Al
Hallo Nepumuk sorry für die späte Nachricht, hat alles bestens funktioniert danke dir :-)
Gruss Al
;

Forumthreads zu verwandten Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Kommentar-marker mit drucken??
joerg

Hallo,
Ist es möglich beim drucken eines Tabellenblattes die kleinen roten Dreiecke, die das vorhandenseins eines Kommentars anzeigen, mitzudrucken?
Ich weiss natürlich dass man die Kommentare als solches drucken kann, allerdings interessiert mich wirklich nur, ob es einen Kommentar gib...
04.09.2008 15:55:00
Thread-ID: 1007447
2 Beiträge
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Anzeige
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Anzeige
Textbox wird nicht aktualisiert während Makro...
Steve

Hallo zusammen,
Folgendes Problem:
Eine Textbox (txtInfo), welches in einem Worksheet eingefügt wurde, sollte während des Makros unterschiedliche Infos anzeigen.
Die Textbox aktualisiert sich aber nicht während des Makros, so dass nur der letzte Wert angezeigt wird, sobald das Makro...
05.03.2009 12:17:30
Thread-ID: 1056772
3 Beiträge
Druckt nicht alles markierte aus der Listbox
Lara

Hi Zusammen
Habe diesen Code in meiner Druckeruserform
Innerhalb einer Listbox markiere ich die einzelnen Blätter die ausgedruckt werden sollen.
Auch wenn ich mehrere markiere druckt er nur das erste markierte Sheet aus. Der Rest nicht.
Private Sub CommandButton1_Click() Dim v...
07.03.2009 13:54:31
Thread-ID: 1057616
7 Beiträge
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
einzelne Zellen nicht schützen, wie?
dietmar

Hallo,
ich möchte bei einem EXCEL-Formular, dass man nur einzelne Zellen befüllen kann und der Rest des Formulars gesperrt ist. Die auszufüllenden Zellen (z.B. Name, Adresse, usw.) sollten durch Tab angewählt werden können. Zur Zeit kann ich nur einzelne Zellen sperren aber nicht umgekehrt?...
05.04.2009 22:41:32
Thread-ID: 1066974
6 Beiträge
Drucken nicht zusammenhängender Bereiche
reiner

Hallo Leute,
ich will auf der Vorderseite eines Blattes die mit "Bereich 1" und "Bereich 2" bezeichneten Zellbereiche drucken.
Auf der Blattrückseite soll "Bereich 3" sowie "Bereich 4" von Tabelle2 untereinander gedruckt werden.
Ist es überhaupt möglich Tabellenblatt-übergreifend D...
10.06.2009 14:24:46
Thread-ID: 1080504
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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