User-Form - Ausdruck auf nur 1 Seite
04.07.2007 11:06:10
Bernd
Hallo zusammen,
ich habe eine User-Form mit Hilfe dieses Forums erstellt, die beim Ausdruck aber auf vier Seiten "verteilt" wird. Eine Möglichkeit wie "an eine Seite anpassen" kann ich nicht einstellen.
Wie kann ich denn das mit Hilfe eines Makros bewerkstelligen?
Grüße
Bernd
Nachstehend der VBA-Befehl i Druckbutton der User-Form:
Private Sub CommandButton7_Click()
Dim wshTemp As Worksheet
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
DoEvents
ThisWorkbook.Worksheets.Add
ActiveSheet.Name = "Temp"
Set wshTemp = ThisWorkbook.Worksheets("Temp")
With wshTemp
.Paste
.PageSetup.Orientation = xlLandscape
.PrintOut
.DrawingObjects.Delete
End With
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("Temp").Delete
Application.DisplayAlerts = True
End Sub