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

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Word macro, right? Nice.

If I do a screen print or capture from Paint Shop Pro, I often leave the 
color scheme the same for PC5250. But I do a negative of the capture in 
side PSP, which gives me the white background. I would bet that GIMP, et 
al., have this ability, too. I will also often convert to a grey-scale 
image. My biggest problem is turning off the 3D-button effects first.

Vern

At 03:59 PM 7/15/2004, you wrote:
> 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.