Zentriertes Drucken eines ganzen Formulars

[eminen]

Hallo,

ich erzeuge in meinem Programm eine Urkunde auf einem Formular. Mit frmUrkunde.PrintForm lässt sie sich auch wunderbar ausdrucken.

Allerdings sollte Sie auf dem Blatt zentriert sein (Soll ja auch halbwegs vernünftig aussehen).

Gibt es da irgendeine Möglichkeit?


P.S.: Die Suchfunktion habe ich genutzt, aber leider erfolglos.


Vielen Dank im Voraus.


eminen

 

[ollek81]

Tach, eminen!

Ich hab ne glaub ich etwas unsaubere Lösung. Bei mir geht sie aber:

Private Sub Command1_Click()
  w = 21 * 567
  h = 29.7 * 567
  Form1.Width = w
  Form1.Height = h
  Frame1.Top = (h - Frame1.Height) / 2
  Frame1.Left = (w - Frame1.Width) / 2
  Form1.PrintForm
End Sub

Ein Din-A4-Blatt ist 21 cm Breit und 29,7 cm hoch. Sagt Windows...
1 cm = 567 Twips (Scalemode des Formulars)
Ich weiß nicht, wie deine Urkunde aufgebaut ist.
Ich würde evtl einen Frame um das ganze legen, dessen Rand du ausblendest.
(Borderstyle = 0 - None)
Dann kannst du den Frame incl. Inhalt mit dem oberen Code in die Mitte des Formulars schieben und dann drucken.

Probier's aus.
Hoffe, ich konnte dir helfen!

Schönen Abend

Ollek81

 

[eminen]

danke sehr. ich werde es ausprobieren.