Code: Select all
Dim l, t, w, h As Integer
GdViewer1.GetDisplayedArea(l, t, w, h)
GdViewer1.CopyRegionToClipboard(l, t, w, h)
Dim GdViewer2 As New GdViewer
GdViewer2.DisplayFromClipboard()
GdViewer2.PrintDialogFit()
Thanks,
Code: Select all
Dim l, t, w, h As Integer
GdViewer1.GetDisplayedArea(l, t, w, h)
GdViewer1.CopyRegionToClipboard(l, t, w, h)
Dim GdViewer2 As New GdViewer
GdViewer2.DisplayFromClipboard()
GdViewer2.PrintDialogFit()
Users browsing this forum: No registered users and 1 guest