title image


Smiley Excel Sheet aus VB heraus drucken
Hallo,



ich fülle aus einem Flexgrid Daten in ein Excel Sheet ein. Das ganze wird dann ausgedruckt, brauch aber eine Ewigkeit.



Gibt es vielleicht eine Möglichkeit diesen Code schneller zu "gestalten" ?



d = 1

Do While d < MSFlexGrid2.Rows

S1.Cells(2, 7) = MSFlexGrid2.TextMatrix(d, 0)

S1.Cells(16, 4) = MSFlexGrid2.TextMatrix(d, 2)

S1.Cells(13, 1) = MSFlexGrid2.TextMatrix(d, 1)

W1.Worksheets("Feuil2").Select

W1.ActiveSheet.PrintOut

d = d + 1

Loop



Mit freundlichen Grüssen

SCHARTZ Philippe

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: