You are not logged in.

Printing (German Question)

Dear visitor, welcome to Palo Community Forum. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

Axel.F2001

Intermediate

  • "Axel.F2001" started this thread

Posts: 6

Date of registration: Sep 21st 2006

  • Send private message

1

Thursday, September 21st 2006, 1:48pm

Printing (German Question)

Hello , Hallo

Ich formulier einfach mal meine Frage in Deutsch, da ich ein paar Probleme mit dem Englischen habe....

also kurz und knackig:

Kann ich mit Palo auch mehrere Dimensionen hintereinander weg drucken, so wie ich es bei diversen Excel Sheets machen kann?

Bsp.

Ich habe z.B.


Eine Tabelle Produkte und Monate

Diese möchte ich bezogen auf mehrere Jahre ausdrucken.

2002, 2003, 2004 ohne nach jedem Druck erst einmal die Jahreszahl ändern zu müssen, ist des möglich?

h_decker

Sage

  • "h_decker" is male

Posts: 763

Date of registration: Oct 26th 2005

Location: Cologne, Germany

  • Send private message

2

Thursday, September 21st 2006, 1:52pm

RE: Printing (German Question)

Hi,
kommt ein bisschen vba in frage?

Axel.F2001

Intermediate

  • "Axel.F2001" started this thread

Posts: 6

Date of registration: Sep 21st 2006

  • Send private message

3

Thursday, September 21st 2006, 2:17pm

Vba kommt in frage, sofern Palo so etwas nicht unterstützt ;)
- Impossible is nothing -

Drachenlady82

Professional

  • "Drachenlady82" is female

Posts: 22

Date of registration: Jul 19th 2006

Location: Stuttgart, Germany

Occupation: Student

  • Send private message

4

Thursday, September 21st 2006, 2:56pm

Und wenn du die Dimensionen Jahr und Monat zusammenlegst? z.B. Jan2002, Jan2003,...

Dann könntest du alle Elemente der Dimension auf einmal anzeigen und müßtest nichts mit VBA programmieren...

This post has been edited 1 times, last edit by "Drachenlady82" (Sep 21st 2006, 2:59pm)

h_decker

Sage

  • "h_decker" is male

Posts: 763

Date of registration: Oct 26th 2005

Location: Cologne, Germany

  • Send private message

5

Thursday, September 21st 2006, 3:11pm

Hier ein Beispiel (erhebt keinen Anspruch auf Schönheit ;))

Sub printcycledyears()

Dim i As Long

For i = 2002 To 2005
Range("A4") = i 'hier steht das jahr
Application.Calculate
'Zeit für Berechnung lassen / ggf. Anzahl durch Schleife erhöhen
DoEvents
DoEvents
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next


End Sub



Gruß
Holger

This post has been edited 2 times, last edit by "h_decker" (Sep 21st 2006, 3:12pm)

Axel.F2001

Intermediate

  • "Axel.F2001" started this thread

Posts: 6

Date of registration: Sep 21st 2006

  • Send private message

6

Thursday, September 21st 2006, 3:15pm

Okey des ist jezt schön für Jahre, danke schon einmal dafür.


Aber es solte eigentlich nur ein beispiel sein, eher beziehe ich mich auf Mitarbeiter, quasi 100 Stück die kann ich ja nicht einfach runterzählen lassen, wie arbeite ich den da?
- Impossible is nothing -

h_decker

Sage

  • "h_decker" is male

Posts: 763

Date of registration: Oct 26th 2005

Location: Cologne, Germany

  • Send private message

7

Thursday, September 21st 2006, 3:39pm

Nochmal hi,
immer noch nicht schöner geworden aber läuft. Bin auf der years dim geblieben, die müsstest Du dann austauschen gegen deine Mitarbeiter Dim.

Gruß
Holger


Sub printcycledyears()


Dim i As Long
Dim dimSizYear As Long

'kleiner workarround weil array funktionen wie 'PALO.DIMENSION_LIST_ELEMENTS im akt. palo release in vba nicht funktionieren

Do
dimSizYear = dimSizYear + 1
Loop While Not IsError(Application.Run("PALO.ENAME", Range("a1"), "years", dimSizYear))

dimSizYear = dimSizYear - 1


For i = 1 To dimSizYear
Range("A4") = Application.Run("PALO.ENAME", Range("a1"), "years", i) 'hier steht das jahr
Application.Calculate
'Zeit für Berechnung lassen / ggf. Anzahl durch Schleife erhöhen
DoEvents
DoEvents
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next


End Sub

This post has been edited 1 times, last edit by "h_decker" (Sep 21st 2006, 3:40pm)

Axel.F2001

Intermediate

  • "Axel.F2001" started this thread

Posts: 6

Date of registration: Sep 21st 2006

  • Send private message

8

Thursday, September 21st 2006, 3:53pm

Super, schaffe es heute nicht mehr das Auszuprobieren, aber werde morgen bescheid geben ob es funktioniert hat.
- Impossible is nothing -
Rate this thread