[Gelöst] CC: ein Artikel auf eine Seite bringen - Excel

Hallo.

Ich habe eine Artikelliste in Excel, wobei ich die Artikel immer Zeile für Zeile mit Incstr() ausgebe.

Code:

j:='5'; //Datatyp=Text
Sheet.Range('A:A').NumberFormat:='@';   
Sheet.Range('A'+j).Value:=Artikelnummer;
J:=INCSTR(J);


Ich möchte jetzt aber die Artikel pro Seite (DIN-A4) in Excel ausgeben. Also, beim Ausdrucken soll immer nur ein Artikel pro Seite dargestellt werden.
Gibt es evtl. eine Funktion dafür?


Viele Grüße,
Christian

Zuletzt geändert von navCH am 6. Juni 2016 12:10, insgesamt 1-mal geändert.

Die musst du selber schreiben, z. B. als Funktion in Tabelle 370 Excel Buffer. Am einfachsten zeichnest du in Excel ein Makro auf während du den Seitenwechsel einfügst, dann kannst du dir herleiten wie das in NAV programmiert werden muss.

Formatierung auf 1 Seite breit, 1 Seite hoch würde z. B. so aussehen:
XlWrkSht.PageSetup.Zoom := FALSE;
XlWrkSht.PageSetup.FitToPagesWide := 1;
XlWrkSht.PageSetup.FitToPagesTall := 1;

Ggf. müsstest du das Anpassen auf 1 Seite breit übernehmen.

Seitenwechsel habe ich jetzt nicht parat.

Die Lösung um nur einen Artikel auf eine Seite zu bringen, habe ich wie folgt realisiert:
Ich habe eine Variable Step, welche ich um so viele Zeilen hochzähle, wie auf eine Seitenansicht passen.
Bei mir ist Step=39, da bei mir auch Zeilen unterschiedlich breit sind. Also 39 Steps, passen genau auch eine Seite

Code:

  Sheet.Range('A'+j).Font.Size:=10;
  Sheet.Range('A'+j).Value:='Artikelnr. NAV:';

  FOR i:=0 TO Step DO
      j:=INCSTR(j);


MfG
Christian