Re: [SPAM] RE: Capturing display file images for documentation

Word macro, right? Nice.

Vern

Somewhere we found this macro and use it to do our screen images. They
basically end up being an all-text version of the screens.  You lose
highlighting, reverse image, and color but it was one way to save on toner
instead of having black backgrounds print.  We use Client Access to "Copy"
(don't select anything and it will copy the whole screen), and then run the
macro to do the "Paste".  HTH
Carmen

Sub ScreenShot()
'
Selection.TypeParagraph
Selection.TypeParagraph
Selection.MoveUp Unit:=wdLine, Count:=2
With Selection.ParagraphFormat
With .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
'.ColorIndex = wdColorAutomatic
End With
With .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
'.ColorIndex = wdColorAutomatic
End With
With .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
'.ColorIndex = wdColorAutomatic
End With
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
'.ColorIndex = wdColorAutomatic
End With
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 5
.Shadow = True
End With
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth050pt
'.DefaultBorderColorIndex = wdColorAutomatic
End With
With Selection.Font
.Name = "Courier New"
.Size = 8
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
'.ColorIndex = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
End With
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(1)
.RightIndent = CentimetersToPoints(0.7)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
End With
Selection.Paste
Selection.MoveDown Unit:=wdLine, Count:=2

End Sub

-------Original Message-------

Date: 07/15/04 13:45:06
To: 'Midrange Systems Technical Discussion'
Subject: Capturing display file images for documentation

I'm trying to capture display file images with "real" data for
documentation.  My results are lousy: the JPG images, when pasted into a
Word document, look pasty (slightly fuzzy) even though they're 200K or more.

Client Access uses the IBM3270 font (8 x 18).  I'm using both ScreenPrint
Platinum 4.8 and SnagIt 7 to capture the images: they're both good products,
although SnagIt appears to have more tools.  I'm not using progressive
encoding on ScreenPrint.

The images seem to be sharper when I go to monochrome and reverse color.
The Client Access color scheme is the standard black background, and I
wonder if this isn't causing the problem.  I'm not planning on printing the
document, so I don't have to worry about black toner.

Does anybody have any suggestions for CAX/ScreenPrint/SnagIt settings?  Or
this there a better product/approach to this task?

Thanks,

Reeve

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.