Printing same page twice with a subtle change

R

remiller131

Hmmm, well, something's not right here. My code is hanging up.
Help???


Sheets("OWTF P.1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("OWTF P.1").Select
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "For
Return Shipment Only", _
"Arial Black", 36#, msoFalse, msoTrue, 207.75,
363.75).Select
Selection.ShapeRange.IncrementLeft -136.5
Selection.ShapeRange.IncrementTop 34.5
Selection.ShapeRange.ScaleHeight 1.95, msoFalse,
msoScaleFromTopLeft
Range("H35:H38").Select
Range("H38").Activate
ActiveSheet.Shapes("WordArt 43").Select
Selection.ShapeRange.IncrementTop -24.75
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Transparency = 0.5
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSolid
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255,
255)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Annotating charts with text from within VBA 11
Put a picture in a text box without selecting it? 2
Insert Pic Which User Chooses into Comment 1
Need help converting macro from 2002 to 2007 4
Adding Text Boxes to New Page 4
Text Overflow 4
Adding shape-type textbox into excel chart sheet 2
Hide/Show Shapes on Worksheet?? 2

Top