Opslaan van range in .doc

[rolfhilhorst]

Hallo, weet iemand of het mogelijk is om een range in excel als word document op te slaan?
Zou iemand mij op weg kunnen helpen?
Groeten, Rolf

 

[Cobbe]

Als je het bereik niet wil invoegen in een Doc dokument dan zou ik printen naar PDF.

Cobbe

 

[rolfhilhorst]

Bedankt voor het advies Cobbe, ik probeer dit volgens de onderstaande code voor elkaar te krijgen, alleen geeft dit een foutmelding bij:
Dim myPDF As PdfDistiller
De melding is, een door de gebruiker gedefinieerd gegevenstype is niet gedefinieerd
Kan iemand mij helpen dit op te lossen?
Groeten, Rolf

Private Sub CommandButton4_Click()
Sheets("AAA").Select
Dim PSFileName As String
Dim PDFFileName As String
PSFileName = "c:\Users\Desktop\AAA\myPostScript.ps"
PDFFileName = "c:\Users\Desktop\AAA\myPDF.pdf"
Dim MySheet As Worksheet
Set MySheet = ActiveSheet
MySheet.Range("BR1:BZ" & Range("DF15").Value).PrintOut Copies:=1, preview:=False, ActivePrinter:="Acrobat Distiller on Ne01:", PrintToFile:=True, Collate:=True, PrToFileName:=PSFileName
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
End Sub

 

[Cobbe]

Ik weet natuurlijk niet echt wat je precies als PDF wilt opslaan, maar voor een simpele opdracht tot PDF-printen is volgende voldoende:

Sub PDF_Printen()
    ActiveSheet.Range("A1:F19").PrintOut Copies:=1, ActivePrinter:="Foxit PDF Printer op Ne03:"
End Sub
[CODE]

Bereik en Printer aanpassen en .....

Succes, Cobbe

 

[rolfhilhorst]

Cobbe, bedankt voor je reactie. Helaas lukt het mij niet om als PDF te printen, elke keer pakt hij mijn printer en niet de 2 andere opties die in mijn print menu staan; PDF en XPS. Hoe krijg ik voor elkaar dat hij de PDF optie pakt?
Groeten Rolf

 

[Cobbe]

Probeer eens op te slaan als PDF:

Sub ALS_PDF_Opslaan() 
  With ActiveSheet.Range("A1:F19")
         .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
         "Vul hier de naam vh bestand in" & ".pdf", _
         Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
         :=False, OpenAfterPublish:=False
  End with
End Sub

Je moet wel nog een naam voor uw bestand verzinnen.

Succes, Cobbe

 

[rolfhilhorst]

Bedankt Cobbe,
Ik ben er mee aan de slag gegaan maar wanneer ik deze code gebruik krijg ik de volgende melding,
fout 438 Deze eigenschap of methode wordt niet ondersteund door dit object
Dit gehele gedeelte wordt geel gekleurd:

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\AAA\aaa" & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Komt het misschien omdat ik excel 2002 gebruik?
Groeten Rolf

 

[Cobbe]

Ja, dit werkt niet in oudere versies zover ik weet.

Maar heb je dan geen PDF-printer geinstalleerd?
Want dat heb je wel nodig om de af te drukken naar een PDF-bestand.
Je kan zo'n PDF-printer gratis downen en installen.

Cobbe

 

[rolfhilhorst]

Volgens mij wel Cobbe
Bij printers staan er bij mij de volgende drie icoontjes:
Adobe PDF
Canon MP190 series Printer
Microsoft XPS Document Writer

 

[Cobbe]

Test dan deze:

Sub PDF_Printen()
ActiveSheet.Range("A1:F19").PrintOut Copies:=1, ActivePrinter:="Adobe PDF op Ne03:"
End Sub
[CODE]

Als het niet werkt neem dan eens een macro op met het printen naar 'Adobe PDF' op.
Dan zie je wel welke naam excel daarvoor grberuikt.

Cobbe

 

[rolfhilhorst]

Cobbe, je idee van het opnemen van de macro is goed uitgepakt...
Nu is het met de rest van je hulp gelukt te printen in PDF.
Bedankt Cobbe!
Groeten Rolf

 

[Cobbe]

Gelukkig voor u.
Maar het zou nog beter zijn indien je de uiteindelijke opdracht hier postte voor het forum, zo heeft iemand anders er misschien ook iets aan.

Cobbe

 

[rolfhilhorst]

U heeft helemaal gelijk Cobbe, mijn excuus...

Een kleine aanpassing hielp, wel het volgende

Sub PDF_Printen()
    Application.ActivePrinter = "Adobe PDF op Ne02:"
    ActiveWindow.ActiveSheet.Range("BR1:BZ" & Range("DF15").Value).PrintOut_
    Copies:=1, ActivePrinter:= "Adobe PDF op Ne02:", Collate:=True
End Sub

Sub writer()
    Application.ActivePrinter = "Microsoft XPS Document Writer op Ne00:"
    ActiveWindow.ActiveSheet.Range("BR1:BZ" & Range("DF15").Value).PrintOut_
    Copies:=1, ActivePrinter:= "Microsoft XPS Document Writer op Ne00:", Collate:=True
End Sub

Bij het aanroepen van PDF_printen of Writer voor het schrijven van een XPS, selecteerde ik eerst de Sheet.

Als volgt;

Private Sub CommandButton1_Click()
Sheets("AAA").Select
Call writer
Call PDF_printen
Unload Me
End Sub

Nogmaals bedankt voor de hulp Cobbe,
Groeten Rolf