Microsoft Excel

Herbers Excel/VBA-Archiv

Probleme mit einem Makro (Drucken)

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


 

Beiträge aus den Excel-Beispielen zum Thema "Probleme mit einem Makro (Drucken)"