Sehr viel Text in Zelle - Problem bei Druck

hallo!
in bestimmten zellen befindet sich extrem viel text. das muss ich leider akzeptieren. nun ist das problem, dass beim ausdrucken (ideal waere ein pdf erstellung auf den desktop) nicht der gesamte inhalt zu lesen ist. es sind teilweise uebr 6000 zeichen! im pdf (das zu erstellen laeuft schon) wird der text genau so abgeschnitten, wie im excel.
nun habe ich im netz einen code gefunden, der mir ein word doc erstellt. hier wird der gesamte text dargestellt. allerdings ist das format (ich brauche querformat) und die FitInToWide funktion natuerlich nicht dabei.
kann mir jemand sagen, wieich das loesen kann, und uu auch header und footer einfuegen?
unten ist der code der das word doc erstellt.
vielen dank im voraus,
liebe gruesse,
martin

Sub test()
Dim myApp As Object
Set myApp = CreateObject("word.application")
myApp.Documents.Add
myApp.Visible = True
'Dein Bereich
Sheets("SPOC-Contingency Task").Range("A1:H30").Copy
'Parameter siehe in Word VBA Hilfe unter PasteExcelTable
myApp.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
Set myApp = Nothing
End Sub
/pre>

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim myApp As Object Set myApp = CreateObject("word.application") myApp.Documents.Add With myApp.activedocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientLandscape .PageWidth = 841.9 .PageHeight = 595.3 End With Sheets("SPOC-Contingency Task").Range("A1:H30").Copy With myApp.Selection .PasteExcelTable False, False, False .Tables(1).Select .Tables(1).AutoFitBehavior 2 End With myApp.Visible = True Set myApp = Nothing Application.CutCopyMode = False End Sub

Sub test() Dim myApp As Object Set myApp = CreateObject("word.application") myApp.Documents.Add myApp.Visible = True With myApp.ActiveDocument.PageSetup .Orientation = wdOrientLandscape .PageWidth = 841.9 .PageHeight = 595.3 End With Sheets("SPOC-Contingency Task").Range("A1:H30").Copy With myApp.Selection .PasteExcelTable False, False, False End With With myApp.Selection.Tables(1) .Select .Style = "Tabellengitternetz" .AutoFitBehavior 2 End With With myApp.Windows(1) .ActivePane.View.SeekView = 1 .Selection.TypeText Text:="Kopfzeile" .ActivePane.View.SeekView = 4 .Selection.TypeText Text:="Fußzeile" .ActivePane.View.SeekView = 0 End With myApp.Selection.HomeKey 6 Set myApp = Nothing Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

Sehr viel Text in Zelle - Problem bei Druck

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sehr viel Text in Zelle - Problem bei Druck

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

340 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread