Das Archiv des Excel-Forums

UserForm im Querformat drucken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Betrifft: UserForm im Querformat drucken
von: Markus

Geschrieben am: 20.09.2019 20:10:18
Liebes Forum,

wie und wo müsste ich folgenden Code ergänzen, damit die Userform im Querformat gedruckt wird.
Private Sub CommandButton1_Click()
Dim sngHeight As Single, sngWidth As Single
'aktuelle Größe in Variablen merken
sngHeight = Me.Height
sngWidth = Me.Width
'eventuell an Deine benötigte Größe anpassen
Me.Height = 360
Me.Width = 275
Zoom = 85
Me.PrintForm 'UF ausdrucken
'Form- Größe wieder zurücksetllen
Me.Height = sngHeight
Me.Width = sngWidth
Zoom = 100
End Sub
Vielen Dank euch!

Betrifft: AW: UserForm im Querformat drucken
von: 1714170.html
Geschrieben am: 20.09.2019 21:54:58
Hallo Markus,
teste mal:

Option Explicit

Private Declare Function MapVirtualKeyA Lib "user32.dll" ( _
    ByVal wCode As Long, _
    ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32.dll" ( _
    ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2

Public Sub Print_Form()
    
    Dim lngAltScan As Long
    Dim objWorksheet As Worksheet
    
    Application.ScreenUpdating = False
    
    lngAltScan = MapVirtualKeyA(vbKeyMenu, 0&)
    Call keybd_event(vbKeyMenu, lngAltScan, 0&, 0&)
    Call keybd_event(vbKeySnapshot, 0&, 0&, 0&)
    DoEvents
    Call keybd_event(vbKeyMenu, lngAltScan, KEYEVENTF_KEYUP, 0&)
    
    Set objWorksheet = ThisWorkbook.Worksheets.Add
    DoEvents
    With objWorksheet
        Call .Paste
        .PageSetup.Orientation = xlLandscape
        Call .PrintOut
        Application.DisplayAlerts = False
        Call .Delete
        Application.DisplayAlerts = True
    End With
    Set objWorksheet = Nothing
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk

Excel-Beispiele zum Thema "UserForm im Querformat drucken"

Diagramm in Userform download XL-Dateien in UserForm listen download
UserForm an Excel-Fenster anpassen download Fundstellen in UserForm listen download
Module und UserForms austauschen download In einer Schleife auf Elemente einer UserForm zugreifen download
Werte in eine ComboBox einer UserForm übernehmen download Zellinhalt als Label-Aufschrift in UserForm download
Alle CheckBoxes einer UserForm ansprechen download Wenn kein Eintrag, UserForm nicht schließen download
Aktiven Drucker in UserForm wechseln download Text aus UserForm-Textbox in Variable einlesen download
UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download Nur Buchstaben in eine UserForm-TextBox download
Wert in Tabelle suchen und in UserForm ausgeben download Tabellenblatt in UserForm download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download
Textfelder in UserForm beim Start vorbelegen download Text aus UserForm in eine Zelle schreiben download
Verhindern des Schließens einer UserForm mittels Schließkreuz download Wert in UserForm-TextBox eintragen und selektieren download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download ComboBox-Felder in UserForm aufklappen download
Eingabekontrolle bei UserForm download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Userform in der Entwicklungsumgebung anzeigen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
CheckBoxes in UserForms in eine Schleife einbinden download Anzahl von CheckBoxes in einer UserForm ermitteln download
Vereinfachte Datumseingabe über UserForm download Auslesen des ausgewählten Optionsfeldes in einer UserForm download
Werte von CheckBoxes in einer UserForm abfragen download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Datensätze in UserForm auswählen und im Blatt löschen download
Bilder in UserForm und Bildgröße anpassen download Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download UserForm als Fortschrittsanzeige download
AcrobatReader mit *.pdf-Dokument über UserForm starten download Zu einer aufrufenden UserForm zurückkehren download
In einer UserForm Berechnungen aufaddieren download Matrix in UserForm-ListBox einlesen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Spalte A mehrer Mappen in UserForm und aktives Blatt download
Adressfeld aus UserForm-ComboBox füllen download Ausgewählte Werte aus UserForm-ListBoxes addieren download
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download
Mehrfachauswahl im Hoch- und Querformat drucken download Drucken der UserForm im Querformat mit Kopfzeile download
Mehrbereichsauswahl auf eine Seite drucken. download Sichtbare Blätter drucken download
Automatische Datumformatierung unterdrücken download Bestätigung beim Speichern unterdrücken. download
Kopfzeile in Buchform drucken download In einem Dialog ausgewählte Spalten drucken download
Codeblatt mit Rändern drucken download Tabellenblätter in umgekehrter Reihenfolge drucken download
Alle Dateien eines Verzeichnisses drucken download Leere Zeilen beim Drucken unterdrücken download
Nummern vorgeben und drucken download Zeilen mit leeren Formeln beim Druck unterdrücken download
Schmale Spalten nebeneinander drucken download Videokassettenaufkleber drucken download
Die Druckseite drucken, in der sich der Cursor befindet download Bereiche in Abhängigkeit eines Zellinhaltes drucken download
Aus Excel heraus ein Worddokument drucken download Nur Zeilen mit einer "2" drucken download
Jede zweite Spalte drucken download Arbeitsmappe öffnen, erstes Blatt drucken, Mappe schließen download
Tabelle nacheinander filtern und drucken download Text aus UserForm-TextBox drucken download
Blatt auswählen und Zellen nacheinander drucken download Den in einer Zelle genannten Bereich eines Blattes drucken download
Kopfzeile nur auf erstem Blatt drucken download Tabellenblatt mit dem aktuellen Monatsnamen drucken download
Diagramm erstellen, in UserForm anzeigen und drucken download Elemente in einer UserForm-ListBox bei Drücken der Entf-Taste lös download
Markierten Bereich drucken download UserForm drucken download
Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen download Zeilen nicht drucken, wenn Spalte C leer oder 0 download
Abfrage vor Start- und Enddatum eines zu druckenden Bereiches download Werte in Word-Dokument einlesen und dieses Drucken download
Nur die letzte Seite drucken download Blatt nur drucken, wenn Zeichenfolge im Namen download
Spendenbescheinigungen als Serienbrief drucken download Mit variablem oberer und unterer Rahmenlinie drucken download
Nur Wert eines Kombinationsfeldes, nicht das Feld drucken download Drucker auswählen und nach dem Drucken zurücksetzen download
Daten sortieren und bedingt drucken download Kopf- und Fußzeileneintrag vor dem Drucken download
Drucken aus einem DialogSheet download