Drucken verhindern ABER pdf erstellen erlauben

[Christian19]

atilla

Danke, ich wollte dir nicht zu nah treten oder dir etwas unterstellen, AUF KEINEN FALL.

[atilla]

Hallo Christian,

das hat nichts mit Dir zu tun.

Ich habe das Gefühl, dass Andre sich die Lösungsvorschäge gar nicht richtig ansieht. Ich habe meine Variante mehrmals bei mir getestet. Es Funktioniert.
Meine Variante mit Application.Wait von Andre ergänzt, funktioniert.

Das es bei Dir nicht Funktioniert verstehe ich leider nicht.

Vielleicht kannst Du und die Werte in den besagten Zellen mal zeigen, dann könnte Andre doch noch recht behalten :@  und ich auch ein bisschen.

[Christian19]

Zweite Version getestet, die mit dem extra Modul

in der Zelle (AY109) 0
Drucken lässt sich nichts, immer mit der richtigen Fehlermeldung!
Speicher lässt sich nichts, auch mit der richtigen Fehlermeldung


in der Zelle(AY109) 1
Drucken lässt sich nichts, immer mit der richtigen Fehlermeldung! 

Speichern lässt sich leider auch nichts, immer mit dem Verweis auf die altbekannte Zeile. :22:
-   : boVar : Wahr : Variant/Boolean
-   : pdfName : "C:\1x\2xx\3xxx\____2016_02_22-17_16_42.pdf" : String

[schauan]

Hallo Atilla,

ich hab schon ordentlich geschaut und getestet - siehe #21 und "meinen" Code Application.OnTime eingebaut :) Mehr Besitzansprüche mach ich nicht geltend :17: Ansonsten, wie heißt es so schön - Gemeinsam sind wir stark :98:

[atilla]

Hallo Atilla,

  Ansonsten, wie heißt es so schön  - Gemeinsam sind wir stark :98:

Hallo Andre,


....und nun???

Kann es etwas mit den Drucktreibern zu tun haben?

Denn, wie gesagt, bei mir funktioniert sowohl mit als auch ohne OnTime.

[Steffl]

Auch Hallo,

ich habe mal in der OH nach der Methode gesucht, da stand folgendes

Workbook.ExportAsFixedFormat-Methode
Mit der ExportAsFixedFormat-Methode wird eine Arbeitsmappe im PDF- oder XPS-Format veröffentlicht.
Versionsinformationen
Hinzugefügte Version: Excel 2007

Syntax

Ausdruck.ExportAsFixedFormat(Type, Filename, Quality, IncludeDocProperties, IgnorePrintAreas, From, To, OpenAfterPublish, FixedFormatExtClassPtr)

Ausdruck Eine Variable, die ein Workbook-, Sheet-, Chart- oder Range-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Type Erforderlich XlFixedFormatType Kann xlTypePDF oder xlTypeXPS lauten.
Filename Optional Variant Eine Zeichenfolge, die den Namen der zu speichernden Datei angibt. Sie können einen vollständigen Pfad angeben, andernfalls wird die Datei in Excel 2007 im aktuellen Ordner gespeichert.

Nach meinen Verständnis fehlt dann da der (erforderliche) Typ. Ungetestet:

Code:

Dim pdfName As String
pdfName = strgPath & Range("K8") & "_" & Range("K6") & "_" & Range("K9") & "_" & Range("K13") & "_" & Format(Now, "YYYY_MM_DD-hh_mm_ss") & ".pdf"
   ActiveWorkbook.ExportAsFixedFormat type:=xlTypePDF, Filename:=pdfName, Type:=xlTypePDF
boVar = False

[Christian19]

kann es daran liegen das ich im Netzwerk sitze und der Drucker nicht direkt am Rechner hängt?, eigentlich ja nicht.

[Christian19]

Code:

Dim pdfName As String
pdfName = strgPath & Range("K8") & "_" & Range("K6") & "_" & Range("K9") & "_" & Range("K13") & "_" & Format(Now, "YYYY_MM_DD-hh_mm_ss") & ".pdf"
  ActiveWorkbook.ExportAsFixedFormat type:=xlTypePDF, Filename:=pdfName, Type:=xlTypePDF
boVar = False

Ich seh da momentan keinen Unterschied zu einer bereits heute vorgeschlagenen Version

Code:

'Option Explicit
Sub ExportPDF()
boVar = True
'Archiv-pdf erstellen
Dim pdfName As String
' Druckbereich festlegen
ActiveSheet.PageSetup.PrintArea = "$C$1:$AF$99"
pdfName = "C:\1x\2xx\3xxx\" & Range("o6") & "_" & Range("o3") & "_" & Format(Now, "YYYY_MM_DD-hh_mm_ss") & ".pdf"
ActiveWorkbook.ExportAsFixedFormat Filename:=pdfName, Type:=xlTypePDF
boVar = False
End Sub

[Steffl]

Hallo,

stimmt, das habe ich übersehen :22: Dreh aber trotzdem mal die Parameter um, weil der Type ist der erforderliche und Filename der optionale.

[atilla]

Hallo Stefan,

Christian schreibt aber, dass es funktioniert, wenn er BeforPrint raus nimmt.


Christian,

teste mal mit Applcation.Wait in der BeforePrint Prozedur:

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
' Verhindert das Drucken
Application.Wait (Time + TimeValue("00:00:01"))
If boVar = False Then

Cancel = True
MsgBox "Drucken aus der Excel wurde verhindert." _
    & vbCr & "" _
    & vbCr & "Drucken nur als .pdf möglich." _
    & vbCr & "" _
    & vbCr & "Datei bitte als .pdf im Projekteordner abspeichern.", 48
End If
End Sub

Kann mir zwar nicht vorstellen, dass es geh, aber trotzdem mal testen.
Sonst kann es so sein, wie Du schreibst, dass es am Netzwerk Probleme macht. Teste auch mal mit einem Lokalen Ort.