Corel Draw druckt Tabellen generell mit, auch wenn es nicht soll

[koter]

Hallo Sven,

die Üblichen Tricks wie in Kurven konvertieren, Powerclip, oder Rollover sind Dir bestimmt schon sebst eingefallen.
Es bliebe noch, alle nicht ausgewählten Objekte durch ein Makro temporär ausblenden und dann drucken zu lassen:

Code:

Sub Auswahldruck()
    Dim s As Shape
    Dim sr As ShapeRange
    If ActiveSelection.Shapes.Count < 1 Then
        MsgBox "Nichts ausgewählt!", vbCritical, "Fehler"
        Exit Sub
    Else
        Set sr = ActiveSelectionRange
        ActiveDocument.PrintSettings.PrintRange = prnSelection
        ActiveDocument.BeginCommandGroup "Ausblenden"
        For Each s In ActiveDocument.SelectableShapes
            If Not s.Selected Then
                s.Visible = False
            End If
        Next
        ActiveDocument.EndCommandGroup
        If ActiveDocument.PrintSettings.ShowDialog Then
            ActiveDocument.PrintOut
        End If
        ActiveDocument.Undo
        ActiveSelection.Shapes.All.RemoveFromSelection
        sr.Shapes.All.AddToSelection
    End If
End Sub

Gruß

Koter