Tscha. Tippfehler und so haben wir viel Material das wir für Bannerdruck nicht verwenden.
320 cm breit; 50 mtr/ Rolle
510 grams / 1000x1000 gewebe, COATED (nicht laminiert).
Bei seriöse Interesse mach ich natürlich super Preis.
Noch 35 Rollen da (5600qm)
Normalpreis 240 EUR / Rolle
Jetzt 100 EUR / Rolle
Für ein projekt wollen wir gerne einen extra TangentialModul einsetzen. Die sind aber neu ziemlich... Preisbelastend... Wer hat eine übrig und möchte die für Euros Wechseln?
Eventuell habe ich einen Fräsmodul für den F1612 den ich nicht benutze...
Preisvorstellung für das Suchen/Tauschen finde ich schwierig. Ich hoffe es bietet sich irgendwas an.
Ding ist verkauft.
Nagelneu aber nicht in unsere Produktion einsetzbar. Deshalb jetzt zu verkaufen.
Vollautomatische Ösenmachine. Aufs display sieht mann wie viele Ösen gesetzt worden sind.
Kommt inklusive 195.000 Ösen
Die Ösen haben einen innendurchmesser von 13 und Außendurchmesser von 24 mm und sind Rostfrei.
Hier in betrieb ist zu sehen - Sehr schnell! :
Textilien war nieh unser Richtung und kurzlich beschlossen es auch nicht weiter zu führen. Daher steht unsere DTF Anlage zu kaufen.
Der Drucker - Sinocolor - ist ein sehr einfaches Model. Die Köpfe sind neu (Rechnung vorhanden) und alle Nozzles sind frei.
Der powder shaker funktioniert einwandfrei.
Zu verkaufen an selbstabholer* fúr absoluten tiefpreis von 5000 euro (nur die 2 Köpfe kosten schon mehr als die Hälfte), aber,
es steht uns im Weg und von rumstehen wird er auch nicht jünger.
* NL, nah an die deutsche Grenze - NRW 48599
Wir verkaufen unseren nagelneuen digitale labelschneide maschine. Leider können wir den nicht einsetzen wofúr gedacht
und etiketten ist nicht unsere Markt.
Nagelneu. Daher die Bilder auch 'mit Folie drumm' Er steht bei uns in Transportkiste.
Ist von september 2021 mit völlige Ausstattung + folgende optionen
- Extra Aufwickler für laminat liner
- extra Aufwickler für fertig material
- Sheetcutter (um in Bogen statt Rollenware zu schneiden
- 4 schneideköpfe die parallel schneiden. Digitale Einstellung
- Camera für schnelles Dateien einlesen
Ins große Netz sind verschiedene Videos zu finden von diese neue Machine.
zB
Preis (VB 38.500 Euro) (keine MwSt!!!)
hat sich gerade erledigt. Verkauft über ebay-kleinanzeigen.
Wer möchte so einen perforator verkaufen?
Hat sich erledigt.
Unseren Gerber Edge FX hat ein kaputtes Bedienteil.
Werden wir jetzt als Ersatzteilespender verkaufen. Bei interesse .....
Wir verkaufen unseren Bannerdrucker. 320 cm breit, mit 2 DX8 köpfe. Druckt mit Eco-Solvent Tinte sehr hohe Qualität.
Viele Ersatzteile (dampfer/Cappings) haben wir auch dabei.
Machine ist aus dez. 2017
VB 2150 EURO
Wegen Umstellung auf anderes Modell verabschieden wir uns von unsere Pro.
Ausführung mit 4 farbiges Nachfüllsystem, nachtrockner, aufroller.
Inkl. versaworks RIP
VB 6000 Euro
Eigentlich ist (fast) alles móglich zu automatisieren in Coreldraw was man auch per Hand selber machen kann.
ABER......
Meinen Beitrag war um zu zeichen das es möglich ist und an Hand mehrere Beispiele hab ich gezeigt wie es ungefähr funktioniert.
Weitere wünsche sollten vielleicht - gegen ein gepassten obulus - per PN geregelt werden.
So macht er das mit Font (und Größe)
Das mit Gruppen einzeln versteh ich nicht so.
Sub createLabelMeasurements()
Dim sh As ShapeRange, w#, h#
ActiveDocument.Unit = cdrMillimeter
Set sh = ActiveSelectionRange
Xoffset = 0
Yoffset = 0
Font = "Arimo"
Fsize = 20
selectionX = sh.PositionX
selectionY = sh.PositionY
Label = sh.SizeHeight & " mm * " & sh.SizeWidth & " mm"
Set s = ActiveDocument.ActiveLayer.CreateArtisticText(selectionX + Xoffset, selectionY + Yoffset, Label, , , Font, Fsize)
End Sub
Sub createLabelMeasurements()
Dim sh As ShapeRange, w#, h#
ActiveDocument.Unit = cdrMillimeter
Set sh = ActiveSelectionRange
Xoffset = 0
Yoffset = 0
selectionX = sh.PositionX
selectionY = sh.PositionY
Label = sh.SizeHeight & " mm * " & sh.SizeWidth & " mm"
Set s = ActiveDocument.ActiveLayer.CreateArtisticText(selectionX + Xoffset, selectionY + Yoffset, Label)
End Sub
machmal
Okay... Da warst ein bisschen schneller.... Editieren Taste hat mir auch schon gefehlt....
Da ich keinen Javascript geschrieben habe, gehts da schief. Du sollst die spalte 'globalmacros' öffnen.
Da kommt er rein.
Ow... Damit habe ich noch nie gearbeitet.
Kannst mal einen Bildschirmabdruck davon zeigen wie es dann aussehen soll? Oder vielleicht eine CDR datei wo schon 1-2 Beispiele ausgefüllt sind.
Dann kriege ich das bestimmt im Makro!
Dan ist doch die 3. Variante noch schöner....
Denke mal die kalkulation wird in Excel gemacht.
Diese funktion speichert die Höhe und Breite der selektierten Objekte im Clipboard.
Danach zum Excel und da 'Einfügen'.
Messen tut er jetzt in Milimetern; Reinfügen in 2 Cellen ab den selektierten.
(also wenn in Excel das Feld B4 aktiviert ist werden die Maße in B4 und D4 eingefügt.
Anpassungen / abrundungen sind einfach im Code hinzufügen.
Diesen Macro kann auch an eine Beliebige taste (Hotkey) verwendet werden.
Fragen? Fragen !
Sub CopySelectedObjectsMeasurementsToClipboard()
Dim sh As ShapeRange, w#, h#
ActiveDocument.Unit = cdrMillimeter
Set sh = ActiveSelectionRange
Set s = ActiveDocument.ActiveLayer.CreateParagraphText(1, 1, 0, 0, "")
sh(1).GetSize w, h
Set t = s.Text
t.Story.InsertAfter(sh.SizeHeight & ChrW(9) & sh.SizeWidth).Copy
s.Delete
a = MsgBox("Abmessungen stehen im Cliboard!", vbOKOnly)
End Sub
wie möchtest du die daten dann haben?
Im VBA sind die verfügbar. aber sollten die zu eine datei geschrieben werden, oder ?.....
erzähl!
