vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Report drucken aus sevDataGrid mit Druckerauswahl 
Autor: RBC
Datum: 10.01.18 14:13

Hallo Dieter,

wieder mal eine Frage:

Ich möchte aus dem integrierten WebReport-Fenster vor dem Drucken den Druckauswahl-Dialog anzeigen.

Ich habe die API

Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

im Projekt

und auch folgende SUB

Private Sub Grid1_HTMLReportToolbarClick( _
ByVal nButton As sevDataGrid3.sevGridReportButton, _
bCancel As Boolean)

' Klick auf Button im integrierten WebReport-Fenster
If nButton = BUTTON_PRINTPAGE Then
' zunächst Druckvorgang abbrechen
bCancel = True

With Grid1
' Druck-Dialog anzeigen
Call ShellExecute(Me.hWnd, vbNullString, _
"rundll32.exe", "mshtml.dll,PrintHTML " & _
Chr$(34) & .HTMLGetFilename(.ReportCurrentPage) & Chr$(34), "", vbHide)
End With
End If
End Sub

Ich öffne das Fenster wie folgt:

With gridPrint
If .DoHTMLReport(TemporäresVerzeichnis & "report.htm") Then

.HTMLPrintGridLines = GRID_HLINE

.ReportButtonBar = True
.ReportButtonStyle = BUTTON_SMALL

' Report anzeigen
.HTMLShowReport , False, False

.HTMLKillFiles
End If
End With



Leider erscheint beim Klick auf das Druckersymbol kein Fenster zur Druckerauswahl.

Vielen Dank für eine kurze Info.

Ein sehr zufriedener "sev"-Anwender
Robert
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

Neujahrsangebote
Prosit Neujahr!
Top-Angebote bei Tools & Components
Ausgewählte Entwicklerkomponenten und Komplettpakete jetzt bis zu 30% reduziert!
zum Beispiel:
· sevDataGrid 3.0 nur 159,20 EUR statt 199,- EUR
· sevZIP40 Pro DLL nur 74,30 EUR statt 99,- EUR
 
· Developer CD für VB nur 419,30 EUR statt 599,00 EUR
· sev.Dta 2.0 Pro (.NET) nur 224,30 EUR statt 299,- EUR
- Werbung -Jetzt schnell zugreifen           Alle Angebote gültig bis einschl. 23.01.18
 ThemaViews  AutorDatum
Report drucken aus sevDataGrid mit Druckerauswahl93RBC10.01.18 14:13
Re: Report drucken aus sevDataGrid mit Druckerauswahl37ModeratorDieter11.01.18 08:07
Re: Report drucken aus sevDataGrid mit Druckerauswahl30RBC11.01.18 08:21

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel