Question : Find Range Of Items In dataTable

I am using SQL SERVER,Vb.NEt Project
I have a datatable one Column Of it (Lets say in index x) has data that  includes Exercises Code Like E-101,E102.....,E129,E-200,E-201,E-299,E-300 e.t.c
Becuse the are a lot of exercises i need to add in a listbox range of exercises that includes the minimum and the maximum of "Hundrends"
for example E-101 to E-129
                   E-200 to E-299 e.t.c (maybe the maximum 234)....Can you Please Give me a guideline????
Thank you very much in advance!! Then I will Use These listbox selection For a WHERE Clause ...

Answer : Find Range Of Items In dataTable

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