Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
140to144
140to144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Frame in Userform drucken

Frame in Userform drucken
30.07.2002 16:36:43
Patrizia
Hallo !!!

Ich habe ein kleines Problem.
Ich habe eine Userform erstellt auf der sich mehrere Frames befinden. In diesen Frames befinden sich mehrere Textfelder die
aus einer Exceltabelle gespeist werden. Es ist alles wunderbar
soweit.

Ich habe nur ein Problem. Ich habe mir auf meiner Userform einen
Drucken-Button angelegt der nach Betätigung den Ausdruck der Userform auslöst. Das funktioniert soweit auch wunderbar nur druckt er mir die Beschriftung der Frames (die oben in die Linien eingebunden sind) nicht mit aus. Er druckt alles nur nicht
die Beschriftung der Frames.

Kann mir bitte jemand helfen !!!!
Danke bereits im voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Frame in Userform drucken
30.07.2002 18:08:01
Hajo_Zi
Hallo Patrizia

bei Fragen zum Code sollte deer vorhandene Code schon mit ins Forum, dann ist es leichter zu Antworten.

Hier aml aus meinem Archiv

322. 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
von Hans W Herber


Gruß Hajo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige