Ich möchte ein Tabellenblatt mit einer Unserform zusammen drucken - habe diesen Code gefunden.
.Shapes(1).Top = .Rows(18).Top gibt aber mit Win7, Office 2010 folgenden Fehler:
"Der Index in der angegeben Sammlung ist ausserhalb des zulässigen Bereichs."
Kann mir jemand weiterhelfen? Vielen Dank
Pepi
Private Declare Function MapVirtualKey Lib "user32.dll" Alias "MapVirtualKeyA" ( _
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 Declare Sub Sleep Lib "kernel32.dll" ( _
ByVal dwMilliseconds As Long)
Private Const KEYEVENTF_KEYUP = &H2
' --------------------------------------------------------------------------------------------
Public Sub XprcPrintForm()
Dim intAltScan As Integer
intAltScan = MapVirtualKey(vbKeyMenu, 0&)
Call keybd_event(vbKeyMenu, intAltScan, 0&, 0&)
Call keybd_event(vbKeySnapshot, 0&, 0&, 0&)
DoEvents
Call keybd_event(vbKeyMenu, intAltScan, KEYEVENTF_KEYUP, 0&)
With Tabelle1
.Paste
.Shapes(1).Top = .Rows(18).Top
.Shapes(1).Left = .Columns(1).Left
With .Shapes(1)
.LockAspectRatio = msoFalse
.Height = 220
.Width = 1000
End With
.PrintOut
.Shapes(1).Delete
End With
End Sub