User Tools

Site Tools


k20:k20.4:k20.4.3:start

20.4.3 Projekt 3 – Demonstrationsprogramm Druck Screenshot

Das dritte Projekt zeigt Ihnen, wie Sie mit Hilfe der Komponente gb.report (Bericht-Designer) auf sehr komfortable Weise einen Screenshot des gesamten Desktops ausdrucken können. Das Projekt basiert auf einer Idee von Fabien Bodard (2012).

B1

Abbildung 20.4.3.1: Demonstrationsprogramm 'Bildschirmkopie drucken'

B2

Abbildung 20.4.3.2: Report-Ansicht → Druck-Vorschau

Vor dem Ausdruck können Sie den Drucker auswählen und die Druck-Optionen anpassen.

Der Quelltext für das Druckprogramm ist durch den Einsatz der Komponente gb.report überraschend übersichtlich:

Public Sub Form_Open()
  FMain.Center
  FMain.Resizable = False
End ' Form_Open()
 
Public Sub btnScreenshot2Printer_Click()
  Dim hImage As Image
  Dim hReport As New Report
  Dim hReportLabel As New ReportLabel(hReport)
  Dim hRepImg As New ReportImage(hReport)
 
  hReport.Orientation = Printer.Landscape
  hReport.Padding = ReportPadding["2 cm"]
  hReport.Spacing = "1 cm"
  hReport.Paper = Printer.A4
 
  hReportLabel.Text = "Bildschirm-Kopie drucken"
  hReportLabel.Autoresize = True
  hReportLabel.Alignment = Align.Center
  hReportLabel.Font.Size = 24
 
  FMain.Visible = False
    Wait 0.05
    hImage = Desktop.Screenshot().Image
  FMain.Visible = True
 
  hRepImg.Image = hImage
  hRepImg.Autoresize = True
  hRepImg.Stretch = Report.Proportional
  hRepImg.Expand = True
 
  hReport.Preview
 
End ' btnScreenshot2Printer_Click()

Download

The website uses a temporary session cookie. This technically necessary cookie is deleted when the browser is closed. You can find information on cookies in our privacy policy.
k20/k20.4/k20.4.3/start.txt · Last modified: 02.07.2018 (external edit)

Page Tools