Office: CompanyButton mit Msg Box

Moin aus dem Norden,
Ich bin absoluter neuling und benötige einmal eure Hilfe.

Ich habe in einem CommandButton den Code eines Makros kopiert.
Dieser Button löst einen Druck aus.

Das klappt schon einmal super.

Jetzt möchte ich gerne das beim betätigen des Buttons eine Meldung aufgeht "PDF Druck eingestellt?" Und ein ok zum bestätigen und ein Abbrechen welches den Druckbefehl auflöst.

Ist das möglich oder zu kompliziert?

Vielen Dank für eure Hilfe

Gruß

 

Hallo,

möglich ist das schon, allerdings müsstest du etwas mehr über deine Datei verraten, sonst ist eine konkrete Hilfe eher nicht möglich. Am besten stellst du mal ein, was du schon hast.

Ansonsten versuche es mal damit:

Code:

 Dim strTxt As String
    strTxt = MsgBox(prompt:="PDF Druck eingestellt?", Buttons:=vbYesNo + vbQuestion, Title:="Bitte bestätigen")
    If strTxt = vbNo Then Exit Sub

 

Moin,
vielen Dank schon einmal für die Antwort!

und wie würde ich das dann in den Code einbetten?

LG

Private Sub cmbSFPDruck_Click()
'
' SFP_2 Makro
'

'
Sheets(Array("TKP", "Kaufm.", "SFP", "Bemerkungen")).Select
Sheets("TKP").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("TKP").Select
End Sub

 

Hallo,

stell doch einfach mal deine Datei ein, dann sehen wir weiter.

 

Hallo,

Leider ist das nicht möglich da dieses Formular firmenintern genutzt wird und vertraulich ist.

Lg

 

Hallo,

eine anonymisierte Beispieldatei wird doch möglich sein. Wer soll das zum Testen nachbauen?

 

Ok
Das kann ich gleich mal nachbauen
Lg

 

Hallo,

habe da mal schnell gebastelt.

Das Makro ist im wesentlichen das selbige.

Viele grüße

 

Moin!
Du brauchst die Nachfrage nicht!
Den "PDF_Druck" erreichst Du mit der .ExportAsFixedFormat-Methode mittels Type:=xlTypePDF
Workbook.ExportAsFixedFormat-Methode (Excel)

Gruß Ralf

 

Moin,
Danke für die Antwort.
Das Problem wird sein das ich verschiedene "Drauckbereiche" benötige.
Wie in der Beispieldatei nicht nur alle 4 sondern auch 1 und 3 etc.
Vermutlich klappt das mit der Lösung nicht.
Lg

 

Ich habe mir die Datei (noch) nicht angesehen.
Die .ExportAsFixedFormat-Methode funktioniert mit vielen Objekten:
Workbook.
Worksheets("xyz").
Worksheets(Array(…)).
Range.

 

Sorry absoluter Neuling...
Also könnte man da auch den "Druckbereich" für die Arbeitsmappen festlegen wenn ich das richtig verstanden habe.
LG

 

Moin,

habe gestern noch eine "Nachtschicht" eingelegt und eine rudimentäre Lösung gefunden.

Private Sub cmbSFPDruck_Click()


If MsgBox("PDF Drucker aktiv", vbOKCancel, "Drucken") = vbOK Then

Sheets(Array("TKP", "Kaufm.", "SFP", "Bemerkungen")).Select
Sheets("TKP").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("TKP").Select

Else
MsgBox "Abbruch"

End If
End Sub

Danke für die Hilfe

 

Moin Gerd,

man kann so etwas auch über eine kleine Userform lösen: Du definierst Deine Druckbereiche jeweils mit einem Namen und dem Bereich. Per Auswahl in einer ComboBox (PullDown)wird dann der Druckbereich temporär gesetzt und du kannst ihn nutzen und jeweils zum gewünschten Drucker/PDF schicken.

Interesse?

Grüße

 

Moin Bastler,

interessiert an besseren / schöneren Lösungen bin ich immer. Müssen für mich mit meinen geringen Kenntnissen aber auch umsetzbar sein ;-)

Grüße