Für Experten/ Doc.als Querformat drucken
19.02.2008 19:41:22
Fred
Ich speichere eine Tabelle über den unten stehenden Code als Word Dokument.Weiss jemand wie ich vor dem Speichern dem Doc. beibringen kann,das wenn jemand es ausdrucken will, das automatisch Das Querformat vorgegeben ist.
Option Explicit
Sub Störmeldung_speichernDoc()
Const thisDir = "C:\Dokumente und Einstellungen\xanwfb\Eigene Dateien\Störmeldung\"
Const thisTmpName = "Störmeldung"
Dim objWord As Object
Dim objDoc As Object
Dim strFileHTML As String
Dim strFileDOC As String
strFileHTML = thisDir & thisTmpName & ".htm"
strFileDOC = Left(strFileHTML, Len(strFileHTML) - 4) & ".doc"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFileHTML, _
Sheet:=ActiveSheet.Name, _
Source:=ActiveSheet.UsedRange.Address, _
HtmlType:=xlHtmlStatic).Publish True
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(Filename:=strFileHTML, Format:=wdOpenFormatWebPages)
objDoc.SaveAs Filename:=strFileDOC, FileFormat:=wdFormatDocument
objDoc.Close
Set objWord = Nothing
Set objDoc = Nothing
Kill strFileHTML
End Sub
Grüße Fred
Anzeige