Hallo Leute,
ich hab mich jetzt mal 2 Tage mit dem Thema Drucken beschäftigt.
Anhand eines Beispiel-Codes hier im Forum hab ich es auch schon
mal geschaft was in eine Datei zu drucken (Soll mal ein Tiff-Plott werden).
Nur leider stimmt es noch nicht ganz was er ausdruckt.
Beim Drucken von Hand stelle ich beim Druck-Dialog in dem
Feld für den "Druckbereich" folgendes ein: gesammtes Dokument
Nun scheint es, dass im Makro dies genau nicht eingestell ist.
Zumindest ist der Druck auf dem Blatt(Tiff-Bild) nach Rechts und Oben
verschoben, und wird somit am rechten und oberen Rand abgeschnitten.
Hat jemand eine Idee wie man dies verberssern kann?
Man kann ja auch ein Bereich auswählen, und somit ein
Druckbereich definieren. Dazu habe ich auch unter dem "Sheet"-Objekt
die Eigenschaft PrintArea gefunden.Sogar ein Beispiel in der Hilfe
gibt es dazu, aber ich möchte dies ja gerade nicht.
Nur wie man das einstellt ist die Frage.
Hier mal das Code-Teil, welche Einstellungen ich Vornehme
Set thePrinter = CATIA.Printers.Item("Drucker_A0")
CATIA.ActivePrinter = thePrinter
' If thePrinter.PaperSize <> catPaperA0 Then
' MsgBox "Drucker ist nicht auf A0 eingesellt, bitte ändern"
' Else
Set drawingSheets1 = drawingDocument1.Sheets
n = 0
Do
n = n + 1
Set Sheet = drawingSheets1.Item(n)
If InStr(1, Sheet.Name, "ZSB") Or InStr(1, Sheet.Name, "DET") Then
Sheet.Activate
'------------------------------------------
'- parameters -
'------------------------------------------
Dim PageSetUp As DrawingPageSetup ' CATIADrawingPageSetup
Set PageSetUp = Sheet.PageSetUp
PageSetUp.PaperSize = catPaperA0
' PageSetUp.PaperWidth = 841
' PageSetUp.PaperHeight = 1189
' PageSetUp.Rotation = catImageNoRotation
' PageSetUp.Orientation = 1
' PageSetUp.LeftMargin = 1
' PageSetUp.RightMargin = 1
' PageSetUp.TopMargin = 1
' PageSetUp.BottomMargin = 1
'PageSetUp.FitToSheetFormat = False
'PageSetUp.MaximumSize = False
' 'PageSetUp.Left = -9.5
' 'PageSetUp.Bottom = -7.5
' PageSetUp.Zoom = 100
' PageSetUp.Scaling1To1 = True
' ' PageSetUp.Color = catTrueMonochrome
' PageSetUp.Banner = "Gedruckt von $USER am $DATE um $TIME"
' PageSetUp.BannerPosition = 0
ZeitstempelBlatt = Format(Date + Time, "mmddhhmmss") & n
'Stop '
Sheet.PrintToFile tmpPfad & DruckDatei & ZeitstempelBlatt
------------------
Gruss Markus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP