Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Name einer Form variabel im Modul
Autor: caramba
Datum: 13.06.08 20:24
Hallo, ich habe ein Modul, welches Steuerungen für die Druckaufbereitung enthält. Die in dem Modul hinterlegten Functions werden vom Druck- programm aufgerufen (z.B. ReadDevMode). Dieses Modul möchte ich für alle noch zu erstellenden Druckprogramme einsetzen. Das Problem ist aber, dass einige Funktionen den Namen der aufrufenden Form (hier im Beispiel "Form1" verlangen. Somit kann ich das Modul nicht generell einsetzen. Dazu müsste ich den Namen der Form variabel setzen können! Gibt es eine solche Möglichkeit? Vielleicht hat ja jemand schon das gleiche Problem gehabt. Danke für Eure Hilfe Rainer '====================================================== Public Sub ReadDevMode(PrinterName As String, ByRef xdev As DEVMODEA) '====================================================== Dim nSize As Long ' Size of DEVMODE Dim PrinterHandle As Long ' handle to printer Dim aDevMode() As Byte ' temporary DEVMODE 'D: Drucker-Handle ermitteln If OpenPrinter(PrinterName, PrinterHandle, 0&) Then 'D: Größe der DevMode-Struktur ermitteln nSize = DocumentProperties(Form1.hWnd, PrinterHandle, PrinterName, 0&, 0&, 0) 'D: Speicher reservieren ReDim aDevMode(1 To nSize) 'D: DevMode-Struktur in temporäre Variable schreiben nSize = DocumentProperties(Form1.hWnd, PrinterHandle, PrinterName, aDevMode(1), 0&, DM_OUT_BUFFER) 'D: Temporäre Variable in DevMode-Struktur kopieren Call CopyMemory(xdev, aDevMode(1), Len(xdev)) xdev.dmDriverExtra = 0 'D: Drucker schließen ClosePrinter (PrinterHandle) End If End Sub

Name einer Form variabel im Modul	1.037	caramba	13.06.08 20:24
Re: Name einer Form variabel im Modul	655	Zardoz	13.06.08 21:29
Re: Name einer Form variabel im Modul	626	caramba	14.06.08 09:05

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