---

Hai,

kann ich Werte über Werte von Variablen auslesen?

Bsp:
A0="User Metrics A0"
A1="User Metrics A1 (x Mal y)"
PaperName = "A0"

Nun will ich über die Variable Papername den Wert deren Inhalts auslesen - in diesem Fall also "User Metrics A0" erhalten. Hat PaperName den Wert A1, will ich den Wert "User Metrics A1 (x Mal y)" erhalten.

In anderen Programmiersprachen geht das mit Eval oder evaluate oder indirekt....steh voll auf der Leitung

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

so ganz genau weiß ich ja nicht was Du machen möchtest.

Schau Dir doch mal diesen Artikel von Andreas an.

Mit dieser Routine kannst Du Dir die Papierformate eines Druckers holen und diese einer Liste zuweisen.

Wenn Du noch die verfügbaren Plotter (System und .pc3) brauchst, benützt Du diesen

Code:

---

Dim plotDevices As Variant
plotDevices = Layout.GetPlotDeviceNames()

---

Die tatsächlichen Blattgrößen kannst Du durch Setzen von
  Layout.CanonicalMediaName = mediaNames(x)
und Abrufen über
  Layout.GetPaperMargins MarginLowerLeft, MarginUpperRight 'Ränder
  Layout.GetPaperSize PaperWidth, PaperHeight              'Breite, Höhe
erhalten.

Grüße,
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Info.
Eigentlich geht es mir nicht direkt um die Drucker und die Layoutnames, sondern vielmehr um diese Technik allgemein:

Eine Variable hat einen Wert, der eigentlich eine Variable ist, und den Wert der 2. Variablen will ich über den Wert der ersten auflösen.............

Var1=A
Var2=B
usw
X = Var2

Wert = eval(X)  ...oder so...

Damit sollte in der Variable Wert der Wert der Variablen Var2 also B stehen...

....
Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von naservus03:
Danke für die Info.
Eigentlich geht es mir nicht direkt um die Drucker und die Layoutnames, sondern vielmehr um diese Technik allgemein:

Eine Variable hat einen Wert, der eigentlich eine Variable ist, und den Wert der 2. Variablen will ich über den Wert der ersten auflösen.............

Var1=A
Var2=B
usw
X = Var2

Wert = eval(X)  ...oder so...

Damit sollte in der Variable Wert der Wert der Variablen Var2 also B stehen...

....
Danke

---

Also so ist mir das in VBA nicht möglich (in Lisp gehts)
Das ist aber sowieso unschön.

Wie füllst Du den die Werte für A0 A1 A2 usw.
Die würde ich eher in iner Collection schreiben, und hier gezielt über einen KEY zugreifen.

Ich verwende dazu ganz gerne das Microsoft Scripting.dictionary
(also einen Verweis auf Microst Scripting Runtime scrrun.ddl sezten)

    Dim Formate As New Scripting.Dictionary

    Call Formate.Add("A0", "User Metrics A0")
    Call Formate.Add("A1", "User Metrics A1")
    Call Formate.Add("A2", "User Metrics A2")
    Call Formate.Add("A3", "User Metrics A3")

    PaperName = "A2"
    PaperNameText = Formate(PaperName)

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Info.
Das klingt am schönsten und werd ich auch verwenden...

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP