Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As Any, ByRef hpvSource As Any, ByVal cbCopy As Integer)

Public Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Integer, _
  ByVal dwBytes As Integer) As Integer
 
Public Function GetPrinter(ByRef frmOwner As System.Windows.Forms.Form, _
  Optional ByRef PrintFlags As Short = 0) As Printer
 
Dim PrintDlg As New PRINTDLG_TYPE
Dim DevMode As New DEVMODE_TYPE
Dim DevName As New DEVNAMES_TYPE
 
Dim lpDevMode, lpDevName As Integer
 
...
 
 DevMode.dmDeviceName = Printer.DeviceName
 DevMode.dmSize = Len(DevMode)
 DevMode.dmFields = DM_ORIENTATION Or DM_DUPLEX
 DevMode.dmOrientation = Printer.Orientation
 
PrintDlg.hDevMode = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(DevMode))
lpDevMode = GlobalLock(PrintDlg.hDevMode)
 
If lpDevMode > 0 Then
 
   CopyMemory(lpDevMode, DevMode, Len(DevMode))
   bReturn = GlobalUnlock(PrintDlg.hDevMode)	
 
End If
 
 
...

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As Object, ByRef hpvSource As Object, ByVal cbCopy As Integer)

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As Object, ByRef hpvSource As _beliebigeStruktur, ByVal cbCopy As _
  Integer)

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef _
  hpvDest As _beliebigeStruktur, ByRef hpvSource As Object, ByVal cbCopy As _
  Integer)

Declare Auto Sub MoveMemory Lib "Kernel32.dll" _
    Alias "RtlMoveMemory" (ByVal dest As IntPtr, ByVal src As IntPtr, ByVal _
    size As Integer)

Public Function GetPrinter(ByRef frmOwner As System.Windows.Forms.Form, _
  Optional ByRef PrintFlags As Short = 0) As Printer
        Dim Printer As Printer
        Dim prnDialog As PrintDialog
        Dim prnDocument As PrintDocument
        Dim objPrinter As Printer
 
        Cursor.Current = Cursors.WaitCursor
 
        Printer = Nothing
        prnDialog = New PrintDialog
        prnDocument = New PrintDocument
        ' PrintDocument brauchen wir, um an die Eigenschaften von PrintDialog 
        ' zu kommen 
        prnDialog.Document = prnDocument
 
        If prnDialog.ShowDialog(frmOwner) = Windows.Forms.DialogResult.OK Then
            If prnDialog.PrinterSettings.PrinterName <> "" Then
 
                For Each objPrinter In Printers
                    '
                    ' Gehe alle verfügbaren Drucker durch
                    '
 
                    If objPrinter.DeviceName = _
                      prnDialog.PrinterSettings.PrinterName Then
 
                        Printer = New Printer
                        Printer = objPrinter
                        prnDocument = prnDialog.Document
 
                        Exit For
 
                    Else
 
                        Printer = Nothing
 
                    End If
 
 
                Next
 
            End If
            If Not Printer Is Nothing Then
 
                ' Eigentlich sollten dann auch die Eigenschaften des 
                ' Printer-Objekts
                ' mit den ausgewählten Einstellungen im PrinterDialog 
                ' übereinstimmen
 
                ueDeviceName = Printer.DeviceName
 
                uePaperBin = _
                  prnDocument.DefaultPageSettings.PaperSource.SourceName
 
                Printer.PaperBin = CShort( _
                  prnDocument.DefaultPageSettings.PaperSource.RawKind)
 
                ueCopies = CStr(prnDocument.PrinterSettings.Copies)
 
                Printer.Copies = prnDocument.PrinterSettings.Copies
 
                '1: Keiner
                '2: Duplex
 
                ueDuplex = CStr(IIf(prnDocument.PrinterSettings.Duplex > 1, _
                  "Duplex", "Einfach"))
                Printer.Duplex = prnDocument.PrinterSettings.Duplex
 
                ueOrientation = resolvePRNPapierausrichtung( _
                  prnDocument.DefaultPageSettings.Landscape)
                Printer.Orientation = IIf(Not _
                prnDocument.DefaultPageSettings.Landscape, vbPRORPortrait, _
                vbPRORLandscape)
                ueQuality = resolvePRNQualitaet( _
                prnDocument.DefaultPageSettings.PrinterResolution.Kind)
                Printer.PrintQuality = _
                prnDocument.DefaultPageSettings.PrinterResolution.Kind
 
            End If
 
 
 
 
        Else
 
            Printer = Nothing
 
 
        End If
 
        prnDialog.Dispose()
        prnDocument.Dispose()
        prnDocument = Nothing
        prnDialog = Nothing
 
        Cursor.Current = Cursors.Default
 
        Return Printer
    End Function