601 Benutzer online
27. Juni 2025, 17:15:17

Windows Community



 Antworten / AufrufeThemen mit dem Stichwort druckbereich
13
Antworten
65839
Aufrufe
Alles plötzlich riesengroß: Menüleisten, Symbole...
Begonnen von yaaba
18. Januar 2015, 21:00:09
[attach=1]Hilfe! Plötzlich sind die Menüleisten, Schriften und Icons in allen meinen Programmen (Excel, Word, Grafikprogramme...) riesengroß. Begonnen hat es vor ein paar Tagen damit, dass die Schrift in der e-mail-Übersicht zu groß war, aber seit heute einfach alles - außer dem Desktop, der stimmt.
Habe Windows 7.
Hab schon alles mögliche probiert - erfolglos:
Systemsteuerung > Darstellung > Anzeige > Schriften  (steht auf mittel, womit der Desktop passt und aussieht wie immer, aber in den Programmen ist alles zu groß)  oder:
Klick auf Desktop > Ansicht > kleine Symbole







serverserver 9794991597949915 115339255115339255 winwin exyexy fehltfehlt mailmail bilderbilder 9765301597653015 114195076114195076 wordword zguzgu microsoftmicrosoft bggbgg 9695298096952980 bgsbgs seiteseite 133053837133053837 windowswindows d24d24 8852837388528373 9678340596783405 132479545132479545 bgqbgq vistavista keinekeine d2sd2s 8819870388198703 9633935296339352 hilfehilfe
4
Antworten
21142
Aufrufe
Druckproblem Windows-Fotoanzeige, Live Fotogalerie, Picture Manager
Begonnen von m2009
03. Januar 2010, 17:12:59
Ich kann mit den Programmen Windows-Fotoanzeige, Fotogalerie und Picture Manager nicht direkt drucken.
Der Standarddrucker (HP Laserjet 1010) wird nicht angezeigt.
Angeboten werden: An OneNote 2007 senden, Microsoft XPS Document Writer, Journalnotizdruck und Fax.

Aus allen anderen Anwendungen z.B. Office Programme, Paint usw. ist der Ausdruck problemlos möglich.

System: Win7 HomePre. Upgrade auf Vista

Für eine rasche Hilfe wäre ich sehr dankbar.
M.
14
Antworten
18912
Aufrufe
PDFCreator - wie unter WordVBA programmieren?
Begonnen von Jean Raul
03. Juli 2008, 22:35:12
Hat schon mal jemand versucht, mit dem (kostenlosen) PDFCreator
http://www.pdfforge.org/
WordVBA zu programmieren? Im Prinzip schaffe ich es ja mit dem mitgelieferten Beispielprogrammen. Ich habe aber Probleme damit, den Dateinamen zu programmieren, unter dem die pdf ausgegeben werden soll. Die PDF wird immer mit dem Pfad und Namen ausgegeben, der den Autosave-Optionen des Programms entspricht, aber nicht mit dem Namen, den ich im Programm vorgebe und haben will.

So lautet mein VBA-Skript. Es soll die aktuell in Word geöffnete Datei ohne weitere Benutzereingriffe als PDF in den Pfad <PDFPfad$> unter dem Namen <PDFName$> speichern:
[code]
Public Function PDFDruck(Optional OhneMsg As Boolean)
Dim Zwi$, PDFPfad$, PDFName$, pdfjob
PDFPfad$ = "C:\Zwi"
'Ermittelt den Namen des aktiven Dokuments:
Zwi$ = ActiveDocument.Name
If InStr(1, Zwi$, ".", vbTextCompare) > 1 Then
   PDFName$ = Mid(Zwi$, 1, InStr(1, Zwi$, ".", vbTextCompare) - 1)
Else
   PDFName$ = "Unbenannt"
End If

Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
   If .cStart("/NoProcessingAtStartup") = False Then
      MsgBox "PDFCreator kann nicht initialisiert werden. Bitte beenden Sie die PDFCreator-Prozesse.", vbCritical + _
         vbOKOnly, "PrtPDFCreator"
      GoTo Ende
   End If
   .cOption("UseAutosave") = 1
   .cOption("UseAutosaveDirectory") = 1
   .cOption("AutosaveDirectory") = PDFPfad$
   .cOption("AutosaveFilename") = PDFName$
   .cOption("AutosaveFormat") = 0    '0 = PDF
   .cDefaultPrinter = "PDFCreator"
   .cPrinterStop = False
   .cClearCache
   ActiveDocument.PrintOut Background:=False
End With
'!!!!!!!!!!!!!!!!Wartet ab, bis fertig gedruckt ist:!!!!!!!!!!!!!!
Dim sleepTime, maxTime, c
sleepTime = 250
maxTime = 10
c = 0
Do While (pdfjob.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
  c = c + 1
  Sleep 200
Loop
'!!!!!!!!!!!!!!!Ende des Abwartens!!!!!!!!!!!!!!
Ende:
Zwi$ = pdfjob.cOutputFilename
pdfjob.cClose
Set pdfjob = Nothing
If Not OhneMsg Then
   If Len(Zwi$) > 0 Then
      MsgBox "Das Dokument wurde nach " & Zwi$ & " gespeichert.", vbInformation
   Else
      MsgBox "Beim Speichern als pdf ist ein Fehler aufgetreten!", vbCritical
   End If
End If
PDFDruck = Zwi$
End Function
[/code]

Auch die anderen COM-Funktionen des Programms sind mir ein Buch mit sieben Rätseln, da die Funktionen nach meiner Ansicht sehr schlecht dokumentiert sind. Weiß jemand mehr? Anbei die "Dokumentation" und die Beispieldateien: