VB6.0 und drucken

[NEO-net]

Kennt Ihr eine Internetseite, auf der das drucken unter VB6.0 erläutert wird. Ich habe ein Vereinsverwaltungsprogramm mit Vb6.0 und einer Access Datenbank geschrieben und mir fehlt die Druckfunktion. Folgendes solte möglich sein:

- skalierbare Seitenansicht

- Briefkopf (z.B. JPG oder BMP)

- Linien

- Graustufen für z.B. Tabellen

- verschiedene Schriftarten

(Also in etwa sollte man eine Art Bericht wie in Access aber halt direkt von meinem Programm aus drucken können)

[NEO-net]

PS: habe bereits das Forum durchsucht. Aber das mit den Reports erstellen läuft bei mir leider nicht. Aufgrund des Datenbanktyps (sagt Visual Basic) :-(

[Pico]

versuch doch mal in der msdn zum thema commondialog und showprint nachzulesen

sollte eigentlich das wichtigste drin sein

ansonsten: http://www.activevb.de/tipps/tipkat/kat11.html

Gruß Pico

[PeliWeli]

Ach ja drucken unter VB.

Habe mich schon in einem anderem Artikel darüber ausgelassen also jetzt nicht noch einmal.

Printdlg mal etwas über den Aufruf des Druckdialogs über die API. Hier kannst Du umfangreichere Einstellungen auslesen und übernehmen.

Denke aber daran das der Drucker nicht als Standard gesetzt wird und Du noch explicit den gewählten Drucker über den angezeigten Namen suche musst

for each prn in Printers

if prn.DeviceName = ....

Probleme erhälst Du sobald Du Drucker mit längerem DeviceName als 32 Zeichen hast was bei Netzwerkdruckern schnell passieren kann. Die werden dann nähmlich abgeschnitten und der Aufruf findet natürlich nicht den entsprechenden Drucker. Um dieses zu umgehen musst Du einen eigenen PrintDialog aufsetzen (habe damals keine andere Lösung gefunden).

Aber erst mal schauen ob dieses nötig ist bevor Du Dir die arbeit machst.

Die Sache mit der Vorscahu ist recht einfach zu lösen mit einem Image Objekt auf dem Du ohne Probleme "Print"en kannst und Du entsprechenden Texte und Bilder darstellen kannst. Hier ist auch recht einfach eine Zoom-Funktion einzubringen.

Naja viel Spaß beim tüfteln. Mir standen teilweise die Haare zu Berge.

Gruß

[NEO-net]

das hat mir sehr weiter geholfen