---

Grüezi Zusammen

Ich habe auch ein Problem mit den Plotten. Die Blattformate sind in SolidWorks noch auf A4-A0 eingestellt (Die Angabe in dieser Form wird von Dbworks ausgelesen und direkt im Zeichnungskopf eingetragen. Deshalb will ich auch nicht bei allen Zeichnungen das Format in Millimetern angeben.) Beim Plotten über SW klappt aber auch alles wunderbar  . Plotten von Zeichnungen über Dbworks ist aber nur fehlerhaft möglich  . Die Formate A4 und A3 werden korrekt auf den Laser ausgegeben, A2 bis A0 sind in der Breite richtig dargestellt, am Rand wird aber jedes mal ein Streifen von ca 5cm nicht gedruckt. Wenn ich in der Plottabelle den Massstab auf 0.9 setze wird natürlich alles zu klein dargestellt, aber wenigstens wird der Rand mitgedruckt. Dies ist zum heulen  !!! Wenn mir da jemand weiterhelfen könnte wäre ich sehr dankbar.

PS: Das Forum finde ich übrigens absolut spitzenmässig!!

Gruss
Erich ausm Schwiizerland

PS
Plotter HP 800PS

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Plotter.txt

Hallo Erich,

das Problem kennen wir leider.
Daher haben wir den Plotaufruf unter SWX geschrieben.
Nach Anwahl der Zeichnungen in DBWorks, können die Daten über ein VBS -Skript geöffnet und anschließend mit den SW-API Funktionen nacheinander und automatisch gedruckt werde.
Die möglichen SW API Befehle für den Drucker sind umfangreicher als die von DBW.
Im Anhang sind einige der Papierformate, die angesprochen werden können aufgelistet.
Wir müßten für Sie folgendes schreiben:
Bei DOKUMENT.BLATTFORMAT = A2
nehme HP...
Nehme Papier xy (siehe Anhang)
Nehme Hochformat/Querformat
Nehme Masstab xx

Anpassungsaufwand, wenn die Einstellungen in der Liste passen ca einen Tag Aufwand.

Wenn die Lösung Ihnen gefällt, Bitte Melden (oder selber programmieren).

Gruss aus dem Flachland

Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die Hilfe!!!!!!!!
Ich denke dass ich da selbst mal einen Versuch starte.

Gruss

Erich J

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Erich,

hier ein Auszug unsere VB Aufrufes beim drucken von SW aus DBWorks.

'PRINTER = InputBox("Enter the printer name:", "Printer", "HP LASER JET 8000 Series PCL 6 auf NT_SRV1")
swApp.ActivePrinter = PRINTER

' Setup the printer and print
ZF = ModelDoc.CustomInfo2("", "ZEICHNUNGS_FORMAT")
  'MsgBox " ZF: " & ZF
If ZF = "A3" Then
      ModelDoc.PrintSetup(swPrintPaperSize) = vbPRPSA3
      ModelDoc.PrintSetup(swPrintOrientation) = vbPRORLandscape
      PRINTER = "HP LASER JET 8000 Series PCL 6 auf NT_SRV1"
      MsgBox "A3"
    ElseIf ZF = "A4" Then
          ModelDoc.PrintSetup(swPrintPaperSize) = vbPRPSA4
          ModelDoc.PrintSetup(swPrintOrientation) = vbPRORPortrait
          PRINTER = "HP LASER JET 8000 Series PCL 6 auf NT_SRV1"
        MsgBox "a4"
    ElseIf ZF = "A4 vert." Then
          ModelDoc.PrintSetup(swPrintPaperSize) = vbPRPSA4
          ModelDoc.PrintSetup(swPrintOrientation) = vbPRORPortrait
          PRINTER = "HP LASER JET 8000 Series PCL 6 auf NT_SRV1"
        MsgBox "A4 vert."
    Else: MsgBox "Kein Format eingestellt für dieses Blatt"
        Exit Sub
End If

vbPRPSA3 ist eine Variabe, die ich auch von Papierformaten ermitteln kann, die ich selber auf dem Server eingerichtet habe.

Ich hoffe du kannst mit diesen Zeilen deine Anpassung laufen lassen.

Gruss

Bernd
PS. Das Programm z.B. mit DBWShell openDocument "c:\test.exe" starten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP