OpenOffice.info

Da es offensichtlich keine BS übergreifende Lösung gibt, die Drucker auszulesen/anzusprechen, könntest Du ggf. das Ganze umgehen.
So zum Beispiel:


If GetGuiType = 1 Then
' Windows
Code von Dannhöfer

ElseIf GetGuiType = 4 Then
' Unix, Linux
Code von martin schniewind

ElseIf GetGuiType ...

Hallo Zusammen!

Ich versuche gerade aus einer Mail mit Anhang den Namen des Anhanges zu extrahieren.

Folgenden Code habe ich mir zusammen gestückelt:

sub attachment

dim oMailer as Object
dim MailProgramm as variant
dim NeueNachricht as variant
dim anhang as string

oMailer = createUnoService ...

Habe die Lösung doch noch gefunden.

So geht es Plattform übergreifend:


Sub mail

dim oMailer as object
dim MailProgramm as variant
dim NeueNachricht as variant

If GetGuiType = 1 Then

oMailer = createUnoService("com.sun.star.system.SimpleSystemMail")'Windows

ElseIf GetGuiType = 4 Then ...

Ich habe folgenden Code zum verschicken einer Email:


Sub mail

dim oMailer as Object
dim MailProgramm as variant
dim NeueNachricht as variant

oMailer = createUnoService( "com.sun.star.system.SimpleSystemMail" )
MailProgramm = oMailer.querySimpleMailClient()
NeueNachricht = MailProgramm ...

So geht's:


Function WeekOfYear

Dim oFunktion as Object
Dim kw as double
oFunktion = createUnoService("com.sun.star.sheet.FunctionAccess")

Dim aArgumente(1) As Variant

aArgumente(0) = DateValue(Date())

aArgumente(1) = 0

kw = oFunktion.callFunction( "WEEKNUM", aArgumente() )

MsgBox kw

End ...

Bin etwas weitergekommen und habe funktionierenden Code.



Function WeekOfYear
Dim FuncAcc as object, aResult as variant, oneDate as long, datum as variant
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")

oneDate = DateSerial(2006, 10, 11)
aResult= FuncAcc.callFunction("FUNCTION ...

Hi Zusammen,

ich versuche gerade von einem gegebenen Datum die Kalenderwoche zu ermitteln.

Hier im Forum habe ich schon etwas gefunden und abgewandelt, komme aber irgendwie damit nicht weiter:


Function funktionAufrufen ( value as Double ) As Double
' Variablen deklarieren
Dim oFunktion as ...

Punkt 1 habe ich lösen können:

("SELECT * FROM ""adressen"" WHERE ""Name"" like '"+wert+"'")

Es leben die Gänsefüßchen und Hochkommata;-)




2. Hat sich jetzt auch erledigt (bin einfach vom Schlauch runter gestiegen;-)).

oErgSet.absolute(1)
inhalt = oErgset.getString(1) usw....
inhalt2 = oErgset ...

Hi Zusammen!

Ich versuche mir gerade etwas BASIC beizubringen, das hat auch schon ganz gut mit dem Buch von T. Krumbein geklappt.

Aber ich habe im Moment 2 kleine Probleme wo ich ein wenig auf dem Schlauch stehe:

1. sql-Abfrage über eine Variable:

Das Statment funzt:

[code]("SELECT * FROM ...

Danke für den Tip, hat aber leider auch nicht geholfen.

Habe es auch schon mal entfernt und wieder neu installiert (mit apt-get...),
dass hatte auch nix gebracht.

Vielleicht werde ich es wieder auf die Version 1.1o-3 (testing) downgraden.

Vielleicht hilft das ja.[/b]

Das ist ja mein Problem, es ist so eingestellt und hat in der Zeit vor dem Update wie beschrieben gefunzt.

Nur jetzt trotz bei behaltener Einstellung macht er diesen Murks.

Paket matschig (->sid?)

Hallo Zusammen,

ich verwende Debian sid und habe nach einem Update auf die Version 1.1-2 von oo folgendes Problem:

Wenn ich eine Eingabe mache und Enter betätige ist früher der Rahmen eine Zeile tiefer grutscht und ich konnte weitere Eingaben machen.

Jetzt ist es so, dass nach einer Betätigung ...