Herbers Excel/VBA-Archiv
Probleme mit einem Makro (Drucken)
- Probleme mit einem Makro (Drucken) von Marc vom 31.08.2004 21:06:47
- AW: Probleme mit einem Makro (Drucken) - von Michi am 31.08.2004 21:49:21
 |
Betrifft: Probleme mit einem Makro (Drucken)
von: Marc
Geschrieben am: 31.08.2004 21:06:47
Follgendes Problem: ich habe das unten aufgeführte Makro am laufen aber irgendwie druckt das makro nicht die erste seite sondern nur die, die mit dem eingefügten wort "Kopie" ist. hoffe ich habe mich verständlich ausgedrückt.
Das Makro soll ein Blatt normal ausdrucken und ein Blatt mit dem Wort "Kopie"
danke schonmal
mfg marc
Sub Testdruck()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Kopie", "Arial Black", 36# _
, msoFalse, msoFalse, 226.5, 127.5).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.5
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.IncrementRotation -29.67
Selection.ShapeRange.IncrementLeft -39#
Selection.ShapeRange.IncrementTop -95.25
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.Delete
End Sub |
Betrifft: AW: Probleme mit einem Makro (Drucken) von: Michi
Geschrieben am: 31.08.2004 21:49:21
Hallo,
vor dem 2.Print-Befehl
Selection.PrintObject = True
setzen.
Gruss
Michi
| |