Schriftart austauschen in Berichten

04/02/2010 - 09:27 von Bernd Blaue | Report spam
Hallo,

ich möchte per VBA in allen Textfeldern in allen (schwieriger wohl:
ausgewàhlten) Berichten die Schriftart wechseln. Grund: es gibt von einer
Vorgàngerversion übernommene Berichte, die die Schriftart "ITC Officina Sans
Book" haben; diese soll gegen die neue Schrift "ITCOfficinaSans LT Book"
getauscht werden.

Wie kann das durchgeführt werden?

Viele Grüße

Bernd Blaue
 

Lesen sie die antworten

#1 Josef Poetzl
04/02/2010 - 10:01 | Warnen spam
Hallo!

Bernd Blaue schrieb:
ich möchte per VBA in allen Textfeldern in allen (schwieriger wohl:
ausgewàhlten) Berichten die Schriftart wechseln. Grund: es gibt von einer
Vorgàngerversion übernommene Berichte, die die Schriftart "ITC Officina Sans
Book" haben; diese soll gegen die neue Schrift "ITCOfficinaSans LT Book"
getauscht werden.

Wie kann das durchgeführt werden?



Du könntest in einer Schleife alle Berichte im Entwurf öffnen, in den
Berichten alle Controls durchlaufen und bei Textboxen die Eigenschaft
FontName prüfen und einstellen.


Prinzip (nur Luftcode!):

sub SchriftErsetzen

dim accObj as AccessObject

for each accObj in Currentproject.AllReports
SchriftInBerichtErsetzen accObj.Name
next

end sub

sub SchriftInBerichtErsetzen(sRepName as string)

dim rep as Report
dim ctl as control

docmd.openreport sRepName, acViewDesign
set rep = reports(sRepName)
for each ctl in rep.Controls
SchriftVonControlErsetzen ctl
next
docmd.close acreport, sRepName

end sub

sub SchriftVonControlErsetzen(ctl as control)
if ctl.ControlType = acTextbox then
if ctl.FontName = "???" then
ctl.FontName = "xxx"
end if
end if
end sub


mfg
Josef

EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/

Ähnliche fragen