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

Drucken des Register einer MultiPage (userform)

Forumthread: Drucken des Register einer MultiPage (userform)

Drucken des Register einer MultiPage (userform)
14.01.2003 09:43:04
Andi
Hallo und Guten Morgen,

ich habe eine Frage an Euch Spezialisten. Wie könnte der Code aussehen, der es mir ermöglicht, nur die Registerseite die aktiviert ist zu drucken.

Wäre schön wenn jemand die Lösung kennt.

Gruß
Andi

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Drucken des Register einer MultiPage (userform)
14.01.2003 10:02:04
Hajo_ZI
Hallo Andi

mal als Ansatz

Userform drucken
Private Label1_Click()
Me.PrintForm
End Sub
Ein Label auf der UserForm zeichnen ohne Text und bei click wir die Userform gedruckt
Von JoWe

der Vollständigkeit halber: Wenn die UserForm mit Titelleiste gedruckt werden soll, wie folgt:

Standardmodul:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

Sub Test()
UserForm1.Show
End Sub

Klassenmodul der UserForm:
Private Sub CommandButton1_Click()
keybd_event VK_SNAPSHOT, 0, 0, 0
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", _
Link:=False, DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
' Querformat auf einer Seite
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
' ende Querformat
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
End Sub
Hans W Herber


Gruß Hajo

Anzeige
;

Forumthreads zu verwandten Themen

MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
userform mit multipage anpassen
angeldust

Hallo liebe User
Habe eine UserForm mit Multipage jede einzelne Seite Fragt den Benutzer
nach seinen Angaben Zb die seite 1 name, vorname seite 2 adresse auf der seite 3 kann
man ein 10 stll. code eintragen, so nun sollten diese seiten gespeichert werden ,
1. Frage ich hab ein...
28.10.2008 15:08:06
Thread-ID: 1019972
2 Beiträge
DTPicker auf Multipage
Bernhard

Hallo VBA-Experten,
heute habe ich ein scheinbar schwieriges Problem. Ich habe auf einer UF Multipages (5) und auf jeder habe ich einen DTPicker. Mein Ziel ist es, dass das aktuelle Datum in den DTPickern drin steht, aber das ist - soweit ich das ergoogelt habe - nur auf der aktiven Page m...
26.11.2008 20:33:07
Thread-ID: 1028148
5 Beiträge
Userform Multipage visible
Steffen

Servus Zusammen!
ich habe eine user form mit 2 bestückten frames und eine multipage.beim wechsel der multipage soll der eine frame sichtbar sein und der andere nicht.
für anregungen u lösungen währe ich euch dankbar!
gruß steffen
27.12.2008 16:25:21
Thread-ID: 1035403
6 Beiträge
Frame zwischen MultiPage Seiten verschieben
Georg

Hi liebe Excel-Macro-Profis, ich hoffe ich kann mein Problem verständlich erklären.
Ich habe im Userform eine Multipage mit mehreren Seiten.
Auf den Seiten sind verschiedene Frames (mit unterschiedlichen Inhalten).
Ich möchte jetzt ein Frame inkls. Inhalt auf eine andere Seite der M...
22.01.2009 15:46:18
Thread-ID: 1042674
5 Beiträge
Frames zwischen MultiPage Seiten verschieben
Georg

Hi Liebe Excel Profis
Ich habe diese Frage ähnlich schon mal gestellt aber bisher noch keine Lösung für das Problem.
Jetzt noch mal deutlicher erklärt in die 2. Runde ;-)
Ich habe im Userform eine Multipage mit mehreren Seiten.
Auf den Seiten sind verschiedene Frames (mit unters...
09.02.2009 13:34:25
Thread-ID: 1048642
7 Beiträge
MultiPages und/oder TabStrips
Lenni

Moin Excellianer!
Ich setze mich gerade mit den Objekten MultiPage und TabStrip in einem UserForm auseinander. Im Forumsarchiv finde ich eher eine ablehnende Haltung gegenüber dem TabStrip-Objekt ("..zu kompliziert zu programmieren.." waren unter anderem die Hinweise). Aber wo der elementar...
13.02.2009 00:08:00
Thread-ID: 1050317
4 Beiträge
Multipage.Page1.Visible
Dirk

Guten Morgen zusammen,
im Archiv bin ich nicht wirklich fündig geworden.
Gibt es die Möglichkeit in einer Uf die einzelnen Page einer Multipage en- bzw. auszublenden?
Ich habe es mit
Multipage1.Page1.visible = False
versucht bekomme aber die Meldung Laufzeitfehler 438 Objek...
26.02.2009 10:14:10
Thread-ID: 1054243
7 Beiträge
multipage beschriften
kirsche

hallo leute,
kann man die einzelnen pages in einer multipage auch mit zeilenumbruch beschriften?
leider habe ich in der recherche nichts gefunden.
gruß kirsche
21.03.2009 19:17:51
Thread-ID: 1062527
3 Beiträge
Multipage
holger

Guten Tag Ihr Lieben,
ich habe in einer UF eine Multipage mit 13 Seiten erstellt. Gibt es die Möglichkeit die aktive Page in der beschriftung oder im hintergrund farblich ander zui gestalten, so das ich direkt sehe auf welcher "Karteikarte" ich mich befinde?
Danke im Vorraus
Holger<...
24.03.2009 11:07:07
Thread-ID: 1063225
2 Beiträge
Absturz bei Multipage.add
TimoG

Hallo Excelfreaks,
ich habe folgende Sub für meine Userform programmiert, damit zur Laufzeit noch Pages zur Multipage hinzugefügt werden.
Dim i as long
const conMaxKantenart=10
const conPrgDatei="Tabelle1.xls"
Dim wert as String
Private Sub Listen_befuellen() For i = 3...
30.03.2009 16:02:39
Thread-ID: 1065338
2 Beiträge
MultiPage und Strg + Tab
Alfons

Hallo,
in einem Multipage-Steuerelement wechsel ich mit Strg+Tab zwischen den Registern.
Das geht aber nicht wenn der Cursor in einem Textfeld steht.
Dann wird mit Strg+Tab ein Tab ins Textfeld eingefügt.
Stattdessen soll er aber das Textfeld verlassen und zum nächsten Register...
06.05.2009 11:34:35
Thread-ID: 1073297
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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