Thema: Drucken aus einem DialogSheet

Home

Gruppe

Dialog

Problem

Aus einem DialogSheet heraus kann man nicht drucken. Dieses Beispiel zeigt eine Möglichkeit, das Problem zu umgehen. Wichtig sind die Eigenschaften der Druckschaltfläche im DialogSheet.

Lösung

Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Public bln As Boolean

Sub CallDlg()
   DialogSheets(1).Show
   If bln Then
      ActiveSheet.PrintPreview
      bln = False
   End If
End Sub

Sub CallPrint()
   bln = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und DialogSheet

xlDialogInsertHyperlink.show	Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog	Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog	Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog?	xlDialogOpen anpassen
Klick in definierten Rangebereich startet Dialog	xlDialogOpen bei Excel 2007 funzt nicht
FileDialog inkl. Anklicken von Desktop, Eigene D.	Grösse Dialogfenster der InputBox
Dialogfeld unterdrücken	Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr	Dialog "Verknüpfung aktualisieren"
Ordnerdialog und Dateidialog	Ordnerdialog und dateidialog
Ordnerdialog und Dateidialog	Filedialog
Herber/Beispiele/Dialoge/Checkbox/137601	Bilder bei Click im Dialogfeld
Suchdialog über VBA aufrufen	mit Wert aus Combobox Dialog öffnen
Diagramm als Grafik mit Speicherdialog exportieren	Dialogfenster zum kopieren
FileDialog-Objekt unter O2k	Abrage von Dialogfeldargumenten
Datei Auswählen Dialog (Application.FileDialog)	xlDialogOpen/FindFile ohne Open
Dialogfeld zum pdf öffnen	Dialogfeld schließen, wenn Benutzer nichts eingibt
Problem mit ApplicationDialogs	Das Dialogfeld "sortieren" aufrufen?
Keine Dialogbox bei SaveAs	Dialogbox
Bei xlDialogSaveAs Dateinamen vorgeben	Blattauswahldialog...
speichern unter dialogbox problem	Speicherndialog bei BeforeClose unterbinden
Dialogfenster "Aktualisierung der Verknüpfungen&qu	speichern unter dialogbox einbinden
Dialogfeld Beschriftungsbereiche	Problem nach 'application.dialogs(xldialogsendmail
dialog aktualisieren	xlDialogSendMail - Passwort übergeben
Dialog zur datei	dialogbox-neue datei erzeugen...
Save As Dialog (*.bat ausführen) ?	Dialog automatisch mit OK bestätigen