Data wydruku

[el_joseppo]

Jak skonfigurować tabelkę żeby na arkuszu pojawiała się data (może i godzina) wydruku?
Ew. jak to zrobić z użyciem VBA?

[el_joseppo]

Daty wydruku nie ma ale moze być data ostatniego zapisu (można jąumieścićw tabelce lub bezpośrednio w tekście na pliku .idw):

'sprawdzam istnienie pól skala, data i godzina jesli nie ma ich to je tworze.
doc = ThisDoc.Document 'przypisanie dokumentu niewiem po co ale musi być.
Wlasciwosci_Uzytownika = doc.PropertySets.Item("Inventor User Defined Properties")

Try
prop = Wlasciwosci_Uzytownika.Item("Skala")
Catch
Wlasciwosci_Uzytownika.Add("", "Skala")
End Try
Try
prop = Wlasciwosci_Uzytownika.Item("Data")
Catch
Wlasciwosci_Uzytownika.Add("", "Data")
End Try
Try
prop = Wlasciwosci_Uzytownika.Item("Godzina")
Catch
Wlasciwosci_Uzytownika.Add("", "Godzina")
End Try
Try
prop = Wlasciwosci_Uzytownika.Item("Ilość")
Catch
Wlasciwosci_Uzytownika.Add("1", "Ilość")
End Try



'pobieram nazwe pierwszego widoku (tzw widok baazowy, nie wiem czym sie różni od innych)
nazwa_widoku=ThisApplication.activedocument.ActiveSheet.DrawingViews.item(1).Name

'wpisuje skalę. nawet jeśli napiszesz 0.5 na widoku to bedzie 1:2
If ActiveSheet.View(nazwa_widoku).Scale<1 Then
iProperties.Value("Custom", "Skala")="1:"& 1/ActiveSheet.View(nazwa_widoku).Scale '1:25
Else
iProperties.Value("Custom", "Skala")=ActiveSheet.View(nazwa_widoku).Scale & ":1" '25:1
End If

'wpisuje czas (z automatu jest mm-dd-rrrr)
iProperties.Value("Custom", "Data")=DateString
'zamieniam na dd-mm-rrrr:

'liczenie dnia zeby nie bylo d-mm-rrrr
If Day(Now())<10 Then
dzien="0"
End If
dzien=dzien & Day(Now())

'liczenie miesiaca zeby nie bylo dd-m-rrrr
If Month(Now())<10 Then
miesiac="0"
End If
miesiac=miesiac & Month(Now())
'to jest data w formacie dd-mm-rrrr
iProperties.Value("Custom", "Data")=dzien & "-" & miesiac & "-" & Year(Now())
'moze sie komus godzina przyda
iProperties.Value("Custom", "Godzina")=TimeString

'uaktualniam
InventorVb.DocumentUpdate()