Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
476to480
476to480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Probleme mit einem Makro (Drucken)

Probleme mit einem Makro (Drucken)
31.08.2004 21:06:47
Marc
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit einem Makro (Drucken)
Michi
Hallo,
vor dem 2.Print-Befehl


      
Selection.PrintObject = 
True 


setzen.
Gruss
Michi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige