Question : SBS 2008 BPA - User Account QBDataServiceUser17

Last few queries on SBS 2008 BPA

The user account QBDataServiceUser17 does not have the attributes that are necessary for it to display in the Windows SBS Console.

I know this is something to do with Quickbooks 2008 install done sometime ago.  We now don't use QB so want to remove it but cannot locate it in Active Directory MC.

TIA

Answer : SBS 2008 BPA - User Account QBDataServiceUser17

Hello biker9,

when you use CopyPicture, you are copying the image as it appears on the screen. The print settings for the shape are ignored. It's rather like taking a screenshot, not like sending the range to the printer (in which case the shape would not be printed).

As a workaround, you can set the fill and border of the shape to msoFalse before copying the range (as a range or a picture) and then, after the copy operation, restore the fill and border (with msoTrue)

The attached code snippet works on your example.

cheers, teylyn
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Sub Print_as_Pic()
'
    With ActiveSheet.Shapes.Range(Array("Rectangle 11"))
        .Fill.Visible = msoFalse
        .Line.Visible = msoFalse
    End With
    Range("B2:F22").Copy Range("J2")
    With ActiveSheet.Shapes.Range(Array("Rectangle 11"))
        .Fill.Visible = msoTrue
        .Line.Visible = msoTrue
    End With
    Range("P4").Select

End Sub
Random Solutions  
 
programming4us programming4us