Makro zum Drucken einer ausgefüllten Maske

Question

Hallo zusammen,
Ich hab eine Eingabe Maske entworfen die sich teils aus den Ergebnissen mit Daten füllt .
Per Button möchte ich gerne das die Maske jetzt so wie sie am Bildschim zu sehen ist gedruckt wird.

Ist das möglich und kann mir einer ein Makro schicken ???

Danke im voraus.

Gruß Dutchi

Answer 1

Hallo ,

was verstehst Du unbter einer Maske? Eine UserForm?

Gruß hajo

Answer 2

Hallo Hajo,
Ja genau eine UserForm, die würde ich gerne ausgedruckt bekommen.
Ist das möglich.

Gruß Dutchi

Answer 3

Hi,

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
Userform Quer drucken
http://phorum.excelhost.de/read.php?11,61218,61264#msg-61264

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

Answer 4

Hallo Hajo,
Hat leider bis jetzt nicht so richtig hingehauen.
Ich werde mal zu späteren Zeitpunkt mit den Thema befassen , mal sehen was ich da wieder falsch gemacht habe.

Danke nochmal für deine Mühe.