Code: Alles auswählen
ActiveWindow.Zoom = 80
ActiveSheet.PageSetup.Zoom = 55
für jeden Kunden füge ich eine Columne an C,D,E ... Z ..AZ
für jeden Artikel füge ich eine Row an 1,2,3 ... 100 ...
Code: Alles auswählen
cEnde := ZAHL2CHR(nLFcount)
myRange := oSheet:range( "A1:"+cEnde+LTRIM( STR(nLen ) ) )
es geht mir nun um die "Breite" z.b. von PORTRAIT oder LANDSCAPE und wie ich die am Anfang aufgeführten Property "berechne" ?
Code: Alles auswählen
ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.7)
.RightMargin = Application.InchesToPoints(0.7)
.TopMargin = Application.InchesToPoints(0.787401575)
.BottomMargin = Application.InchesToPoints(0.787401575)
.HeaderMargin = Application.InchesToPoints(0.3)
.FooterMargin = Application.InchesToPoints(0.3)
.PrintQuality = 300
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
Code: Alles auswählen
BEGIN SEQUENCE
// Start Excel
oExcel := CreateObject( "Excel.Application" )
...
// Make the first one active
oWorkBook := oExcel:activeWorkBook
oExcel:Application:Worksheets( 1 ):activate()
// Rename the sheet
oExcel:Application:Worksheets( 1 ):name := ID_USER
// Speed things up by creating an object containing the cells
oSheet := oExcel:Worksheets( 1 ):cells
oSheet:Columns( myARTNR ):ColumnWidth := 5 // Artnr
oSheet:Columns( myGEWICHT):ColumnWidth := 7 // Gewicht
oSheet:Columns( myLgPlatz):ColumnWidth := 4 // Platz
oSheet:Columns( myARTIKEL):ColumnWidth := 23 // Artikel
.PaperSize = xlPaperA4 zusammen mit den Margin Werten "müssten" doch für eine "Berechnung" reichen, oder ? ... aber "wie"
ich fürchte man muss alles auf Pixel ( = Point ? ) "umrechnen" ?