637 Benutzer online
21. November 2024, 20:01:03

Windows Community



 Antworten / AufrufeThemen mit dem Stichwort etikettendruck
1
Antworten
8177
Aufrufe
Spezialsoftware für Windows
Begonnen von Hanniball
21. August 2012, 18:24:33
Entwickle Spezialprogramme für diverse Anwendungen in der Sprache PureBasic. Läuft unter allen Windows Versionen. Beispiele: Notizblock, Etikettendruck, Bildbearbeitung (z. B. für Internet)CSS /HTML -Editor, Programmieroberfläche, Programmierhandwerkzeuge.

Einfach Anfrage senden, Angebot bzw. Aufgabenumfang gemeinsam erarbeiten, Zeitraum und festlegen.
Preis: werden wir uns einig  :)) Hotline und Service auch nach Projektabschluss.

7764843777648437 windowswindows bingbing zwuzwu bgqbgq go-windowsgo-windows 5715546957155469 6044456460444564 6611102266111022 6913729869137298 7119895871198958 d24d24 bggbgg 122448493122448493 seiteseite programmierenprogrammieren zg4zg4 5581944455819444 5818717858187178 6119060461190604 6722926067229260 7013858870138588 7464912974649129 9491169694911696 problemeprobleme forumforum gehtgeht fehlerfehler computercomputer druckendrucken
2
Antworten
10262
Aufrufe
Bidirektionale Kommunikation - Drucker-Einstellung / Treiber
Begonnen von Frank1972
31. Oktober 2011, 16:23:48
Hallo,
Habe einen Nadeldrucker von OKI ML 3320 und möchte unter Windows 7 64 Bit Bidirektional drucken.
Wo kann ich das einstellen ? Der Technische Support von OKI hat mir erzählt das es generell unter Win nicht gehen soll,nur unter DOS, kann das betätigt werden ?
Laut OKI sendet Windows die Drucksignale zum Drucker so das die Beste Qualität erzielt werden soll und so werden meine Einstellungen von Word und die von Drucker übergangen.
Der Drucker druckt mir nicht im Nadel Punktsill, sondern mit Kleinen Strichen.
Von Links nach Rechts, wen der Druckkopf zurückschnellt druckt er alles noch mal,dadurch wir es nicht so gut Lesbar,ich kann doch keine Rechnung so an Kunden schicken.
Habe den Drucker über LTP 1 mit einem USB Konverter angeschlossen,( ist das vielleicht das Problem ? )
Andere Drucker kommen nicht in Frage, da das Preis Leistungsverhältnis sonst nicht auf geht.
Ich weiß nicht mehr weiter, sollte ich vielleicht mal DOS auf den Rechner Installieren ?

Ich währe für jede Hilfe Dankbar

Grüße
Frank
14
Antworten
18706
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: