OpenOffice.info

F1 > Calc > Suchen: benutzerdefinierte funktionen
oder
[url=http://www.ooowiki.de/MakrosInstallieren.html]OOo Wiki - Makros installieren[/url]

Hallo Winfried,

die Funktion wäre klasse.
Aber leider weis ich nicht, wie man diesen Code jetzt in OpenOffice Calc Bibliothek oder in dem Dokument speichert.
Habe ich noch nie gemacht und schon gar nicht in Calc.
Die Functionen kenne ich, durch Access Programmierung, habe das aber auch noch nie bei Excel angewendet.
Könntest du mir diese beiden Arten der Speicherung einmal zeigen, wie ich diesen Code jetzt ablegen muss und wo.

Danke für deine Unterstützung
Frank

FUNCTION DRUCKDATUM
' 20150714 
' de66025 
' benutzerdefinierte CALC-Funktion zum Setzen des Druckdatums

aPrintDate = ThisComponent.getDocumentProperties().PrintDate

IF aPrintDate.Year > 0 THEN
   DRUCKDATUM = _
      FORMAT(aPrintDate.Day, "00") & "." & _
      FORMAT(aPrintDate.Month, "00") & "." & _
      aPrintDate.Year & " " & _
      FORMAT(aPrintDate.Hours, "00") & ":" & _
      FORMAT(aPrintDate.Minutes, "00")  
ELSE
   DRUCKDATUM = "Dokument wurde noch nicht gedruckt"
END IF 

END FUNCTION

Willkommen im Forum.

Es gibt leider keine eingebaute Calc-Funktion dafür.

Speichere folgenden Code in einer [color=#0040FF]STANDARD[/color] Bibliothek (Deiner Installation, oder in den Dokumenten, welche die Funktion nutzen sollen)

[code]FUNCTION DRUCKDATUM
' 20150714
' de66025
' benutzerdefinierte CALC-Funktion zum Setzen des Druckdatums

aPrintDate = ThisComponent.getDocumentProperties().PrintDate

IF aPrintDate.Year > 0 THEN
DRUCKDATUM = _
FORMAT(aPrintDate.Day, "00") & "." & _
FORMAT(aPrintDate.Month, "00") & "." & _
aPrintDate.Year & " " & _
FORMAT(aPrintDate.Hours, "00") & ":" & _
FORMAT(aPrintDate.Minutes, "00")
ELSE
DRUCKDATUM = "Dokument wurde noch nicht gedruckt"
END IF

END FUNCTION[/code]

Mit [color=#008000]=Druckdatum() [/color]in einer Zelle wird diese Funktion aufgerufen, liesst die Dateieigenschaften aus und füllt die Zelle.

Hilft das weiter?

Sub LogPrint
	oCalc = ThisComponent
	oSheet = oCalc.Sheets(0)
	PrintLog = oSheet.GetCellRangeByName("C3")
	PrintLog.String = Now()
End Sub

Hallo Misterlion

mit einem kleinen Makro das verknüpft ist mit dem Ereignis Dokument drucken ist den Wunsch schon erfüllt.
(ich würde das Makro im Dokument speichern und das Anpassen ebenso nur für das Dokument vornehmen )

[color=#008000]Menü > Extras > Anpassen > Ereignisse > Dokument drucken >> Makro zuweisen[/color]

[code]
Sub LogPrint
oCalc = ThisComponent
oSheet = oCalc.Sheets(0)
PrintLog = oSheet.GetCellRangeByName("C3")
PrintLog.String = Now()
End Sub[/code]
hilft dir das?

Hallo,
ich habe alles durchsucht, aber nichts über das Ausdruckdatum gefunden.
Könnte mir jemand helfen.

Wenn ich meine Tabelle ausgedruckt habe, möchte ich das Ausdruckdatum in einer Zelle übernehmen.
Ich finde aber leider keinen Befehl dafür.

Aussehen sollte es so:
1. 12.06.2015 oder
2. 12.06.2015 12:34

Gruß
Misterlion