Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

MSHFlexgrid drucken
Autor: RoDiMa
Datum: 07.06.04 13:01
Hallo Foren-Freunde, mit folgendem Code drucke ich ein Grid aus:[ Aufruf erfolgt durch: Call PrintGrid(Me.MSHFlexGrid1, 10, 75, 5, 20, strTitel, "") Jetzt passiert folgendes: 1. Zeile beginnt 1 cm vom Rand an zu drucken 2. Zeile beginnt 1 cm vom Rand an zu drucken 3. Zeile beginnt dort zu drucken wie bei Call... eingestellt. Der Übersicht wegen, sollten aber alle 3 Zeilen an der gleichen Stelle zu drucken anfangen. Habt Ihr eine Lösung parat? mfg RoDiMa code]Option Explicit Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As _ Long, ByVal wParam As Long, ByVal lParam As Long) _ As Long Const WM_USER = &H400 Const VP_FORMATRANGE = WM_USER + 125 Const VP_YESIDO = 456654 Private Type Rect Left As Long Top As Long Right As Long Bottom As Long End Type Private Type TFormatRange hdc As Long hdcTarget As Long rc As Rect rcPage As Rect End Type 'Dieser Source stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! 'Abruf: ' Call PrintGrid(MSFlexGrid1, 20, 25, 20, 20, _ "ActiveVB - FlexGrid drucken über " & _ "VP_FORMATRANGE", "") Public Sub PrintGrid(Grid As MSHFlexGrid, ByVal LeftMargin As Single, _ ByVal TopMargin As Single, ByVal RightMargin As _ Single, ByVal BottomMargin As Single, Titel As _ String, Datum As String, Optional many As Long) Dim tRange As TFormatRange Dim lReturn As Long Dim DName As String Dim DSchacht As Long Dim gbeg As Long Dim CopyCW() As Long Dim GRef As Boolean Dim x% GRef = False If many > 0 Then ' Anzahl der zu druckenden Colums festlegen ' Alles > many wird auf colwidth = 0 gesetzt If Grid.Cols > many Then gbeg = Grid.Cols - many ReDim CopyCW(gbeg) Grid.Redraw = False For x = many To Grid.Cols - 1 CopyCW(x - many) = Grid.ColWidth(x) Grid.ColWidth(x) = 0 Next x GRef = True End If End If 'mit wParam <> 0 kann überprüft werden 'ob das Control OPP unterstützt, wenn ja wird '456654 (VP_YESIDO) zurückgeliefert lReturn = SendMessage(Grid.hWnd, VP_FORMATRANGE, 1, 0) '------------------------------Original--------------------- 'If lReturn = VP_YESIDO Then 'Struktur mit Formatierungsinformationen füllen 'Printer.ScaleMode = vbPixels '---------------------------------------------------- If lReturn = VP_YESIDO Then 'Struktur mit Formatierungsinformationen füllen Printer.ScaleMode = vbPixels Printer.Orientation = 2 With tRange .hdc = Printer.hdc 'Höhe und Breite einer Seite (in Pixel) .rcPage.Right = Printer.ScaleWidth .rcPage.Bottom = Printer.ScaleHeight 'Lage und Abmessungen des Bereichs auf den 'gedruckt werden soll (in Pixel) .rc.Left = Printer.ScaleX(LeftMargin, vbMillimeters) .rc.Top = Printer.ScaleY(TopMargin, vbMillimeters) .rc.Right = .rcPage.Right - Printer.ScaleX(RightMargin, _ vbMillimeters) .rc.Bottom = .rcPage.Bottom - Printer.ScaleY(BottomMargin, _ vbMillimeters) End With 'Drucker initialisieren Printer.Print vbNullString 'Seite(n) drucken Do Printer.CurrentX = Printer.ScaleX(LeftMargin, vbMillimeters) Printer.CurrentY = Printer.ScaleY(10, vbMillimeters) If Titel <> "" Then Printer.Print Titel Printer.CurrentX = Printer.ScaleX(LeftMargin, vbMillimeters) Printer.CurrentY = Printer.ScaleY(16, vbMillimeters) If Datum <> "" Then Printer.Print Datum Else 'Printer.Print Format(Date, "DD.MM.YYYY") End If lReturn = SendMessage(Grid.hWnd, VP_FORMATRANGE, 0, _ VarPtr(tRange)) If lReturn < 0 Then Exit Do Else Printer.NewPage End If Loop Printer.EndDoc 'Reset lReturn = SendMessage(Grid.hWnd, VP_FORMATRANGE, 0, 0) End If If GRef Then 'Alle Colums wieder in richtiger Breite darstellen For x = many To Grid.Cols - 1 Grid.ColWidth(x) = CopyCW(x - many) Next x Grid.Redraw = True End If End Sub

MSHFlexgrid drucken

1.656

RoDiMa

07.06.04 13:01

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übersicht

Suchen