Fråga : Fyndet spänner av objekt i dataTable

I förmiddag using SQL-SERVEREN, Vb.NEt Project
I har en datatable en kolonn av den (låter något att säga i index x), har data som inkluderar övar kodifierar lik E-101, E102 ....., E129, E-200, E-201, E-299, E-300 e.t.c
Because är en radda övar mig behöver att tillfoga i en listbox spänner av övar som inkluderar minimien och maximat av ”Hundrends "
for example E-101 till E-129
E-200 till E-299 e.t.c (kanske maximat 234)….,Kan du behaga ger mig en anvisning????
Thank dig mycket i förskott!! Därefter jag ska dessa bruk listboxvalet för VAR satsen… " klar "

Svar : Fyndet spänner av objekt i dataTable

Hälsningar biker9,

när du använder CopyPicture, du kopierar avbilda, som den visas på avskärma. Tryckinställningarna för forma ignoreras. Det är den snarlika något liknande som tar en screenshot, inte något liknande som överför spänna till skrivaren (i vilket fall forma skulle för att inte skrivas ut).

Som en lösning du kan uppsättningen påfyllningen och att gränsa av forma till msoFalse, innan du kopierar spänna (som en spänna eller en föreställa) och därefter, efter kopierafunktionen, återställande påfyllningen och har gränsat (med msoTrue)

Fäste kodifierar snippetarbeten på ditt exempel.

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

UnderPrint_as_Pic ()
',
    Med ActiveSheet.Shapes.Range (samling (”rektangel 11”))
        . Fill.Visible = msoFalse
        . Line.Visible = msoFalse
    Avsluta med
    Spänna (”B2: F22”). Kopiera spänner (”J2”)
    Med ActiveSheet.Shapes.Range (samling (”rektangel 11”))
        . Fill.Visible = msoTrue
        . Line.Visible = msoTrue
    Avsluta med
    Spänna (”P4”). Välj

Avsluta suben
Andra lösningar  
 
programming4us programming4us