Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mit Ränder Drucken
Autor: gbessel
Datum: 16.11.02 16:01
Hi, Kann mir jemand diesen Code so ergänzen, das der Text 3cm von oben, 2,5cm von links und 1,5cm von rechts gedruckt wird. So wie der Code jetzt geschrieben ist, sitzt der Text links oben in der Ecke. Private Sub mnuFilePrint_Click() On Error Resume Next If ActiveForm Is Nothing Then Exit Sub With dlgCommonDialog .DialogTitle = "Drucken" .CancelError = True .Flags = cdlPDReturnDC + cdlPDNoPageNums If ActiveForm.rtfText.SelLength = 0 Then .Flags = .Flags + cdlPDAllPages Else .Flags = .Flags + cdlPDSelection End If .ShowPrinter If Err <> MSComDlg.cdlCancel Then ActiveForm.rtfText.SelPrint .hDC End If End With Printer.EndDoc End Sub Vielen Dank im Voraus Günter

Mit Ränder Drucken	597	gbessel	16.11.02 16:01
Re: Mit Ränder Drucken	409	Brian	17.11.02 13:30
Re: Mit Ränder Drucken	411	gbessel	17.11.02 18:03

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