PM & BasicMaker

[floppy]

Hallo und guten Morgen,

Ich habe eher eine Frage zu BasicMaker welcher in Bezug zu PM steht.
Ausgang wäre ein PM Sheet, welches ich einen Button besitzt, um das Script zu starten.

Code: Alles auswählen

Dim pm as Object

Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True

pm.Application.Workbooks.Open "C:\Users\ICH\Documents\Rezepte\ICH Rezept.xlsx"

#wird z.zt. nicht angesprochen ....
' if AppPlanMaker "C:\Users\ICH\Documents\Rezepte\ICH Rezept.xlsx" .Validation = false
' AppPlanMaker "C:\Users\ICH\Documents\Rezepte\ICH Rezept.xlsx"
' else 

Print & CheckBox wird noch nicht angwesprochen versuch Datei speichern zuerst
' pm.ActiveSheet.Print
'pm.ActiveSheet.FormObject.CheckBox.Valid = false
pm.Application.ActiveWorkbook.Save

Zeile 6 gibt es eine Error Meldung, sobald das Sheet offen ist.
Ich würde sehr gerne eine Abfrage machen, welche zuerst prüft, ob das Sheet geöffnet ist und sonst es öffnet.
Sobald bekannt ist es ist offen, druckt es das Sheet so wie in den druck Einstellungen
danach alle CheckBox wieder zurücksetzen auf nicht gesetzt
und am Schluss des Script alles wieder speichern.

Ich habe leider bis jetzt mich dem BasicMaker nicht gewidmet und kenne die Struktur nicht.
Es ist im BasicMaker von der Beta aus diesem Grund hier im PM und nicht im öffentlichen Forum.
Zusätzlich wäre es schön, wenn der BasicMaker nicht nur Error sagen würde, sondern etwas mehr Hilfe anbietet, ok meine Kenntnisse des BasicMakers.
Zudem evtl. im BasicMaker die möglichen Befehle anzeigen resp. beim Eingeben als Hilfestellung ergänzen.

Ich habe mich bedauerlicherweise nur der OnLine Hilfe gewidmet und musste immer wieder zwischen Workbook und Workbooks sowie Sheet hin
und her springen, was vielleicht zu meinen Fehlern führte.

Vielleicht kann mir jemand etwas Hilfe zuteilwerden lassen diesbezüglich.

Aktuelles System:
PC System, Win 11 Notebook, SoftMaker Office Beta (BasicMaker NX Home (rev S1403.0913) 64bit )

Herzliche Grüße
Christian

[Puffolino]

Bin hier keine wirkliche Hilfe, da ich bis jetzt SoftMaker immer portabel am USB-Stick betreibe (weil ich auf verschiedenen Rechnern werke).

Vielleicht wird ja der BasicMaker irgendwann auch portabel, wer weiß

[floppy]

Hallo Puffalino,

in erster Linie läuft es bei mir auf dem Notebook,
den ich leider zur Zeit zu meinem hauptrechner
Beförderte weil mein Rechner noch immer warten muss.

Primär geht es schon etwas darum dass ich das script relativ einfach vom Notebook auf die workstation rüber nehmen kann.

Zur Zeit ist es auch bei mir unter dem Begriff portabel abgelegt im Hinterkopf.

Mir scheint auch dass "BasicMaker" eher ein Schatten -
Dasein Fristen muss im Vergleich zu der Text Verarbeitung oder der Tabelle Kalkulation.

Auch die Hilfe ist etwas gewöhnungsbedürftig oder ich empfinde es vielleicht auch nur so, aus diesem Grund auch die Frage dazu hier im forum.

Und kein Problem auch wenn Du keine Lösung hast,
ich bin bereits froh dass ich wahrscheinlich nicht der einzige bin.

Herzliche Grüsse
Christian

[SuperTech]

Vielen Dank, dass Sie Ihr Problem geschildert haben. In Ihrem Skript müssen Sie jedoch zunächst die folgenden zwei Zeilen mit ' auskommentieren.

Code: Alles auswählen

#wird z.zt. nicht angesprochen ....

Print & CheckBox wird noch nicht angwesprochen versuch Datei speichern zuerst

und führen Sie diesen Code dann wie folgt aus:

Code: Alles auswählen

Dim pm as Object

Set pm = CreateObject("PlanMaker.Application")
pm.Application.Visible = True

pm.Application.Workbooks.Open "C:\Users\ICH\Documents\Rezepte\ICH Rezept.xlsx"

'#wird z.zt. nicht angesprochen ....
' if AppPlanMaker "C:\Users\ICH\Documents\Rezepte\ICH Rezept.xlsx" .Validation = false
' AppPlanMaker "C:\Users\ICH\Documents\Rezepte\ICH Rezept.xlsx"
' else 

'Print & CheckBox wird noch nicht angwesprochen versuch Datei speichern zuerst
' pm.ActiveSheet.Print
'pm.ActiveSheet.FormObject.CheckBox.Valid = false
pm.Application.ActiveWorkbook.Save