Xojo Conferences
XDCMay2019MiamiUSA

printer margins (Real Studio getting started Mailinglist archive)

Back to the thread list
Previous thread: [RB List] RightDrag
Next thread: [RB List] RightButton MouseDrag?


RB Database   -   tom.russell transport.alstom.com
  printer margins   -   GAmoore aol.com
   Re: printer margins   -   CV

printer margins
Date: 22.01.05 04:38 (Sat, 22 Jan 2005 03:38:13 EST)
From: GAmoore aol.com
I still don't see how to set the margins to a default value of my choosing. I
would like to programatically set the margins to .50 inches all the way
around - which is 36 pixels (among 72/inch). However, I am not allowed to change
any of the values. I can only let the user engage in an extra dialog (two)
every time he prints - and this might involve setting up custom sizes in OS X.

------------------------------------------------------------------------------
------

Const MarginSize = 36 // 0.5 in = 36/72
Dim settings as String
Dim PageSetup as New PrinterSetup
If PageSetup.PageSetupDialog Then
settings=PageSetup.SetupString
PageSetup.PageHeight = 792
PageSetup.PageLeft = - MarginSize
PageSetup.PageTop = - MarginSize
PageSetup.PageWidth = 612
PageSetup.Height = PageSetup.PageHeight - MarginSize - 40
PageSetup.Left = MarginSize * 2
PageSetup.Top = 0
PageSetup.Width = PageSetup.PageWidth - 2*MarginSize
End If

------------------------------------------------------------------------------
------
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>

Re: printer margins
Date: 22.01.05 10:49 (Sat, 22 Jan 2005 03:49:59 -0600)
From: CV
To my knowledge, there's currently no Rb feature which allows
interacting with user margin settings(and default margin settings) on
Windows. These margin settings are System and user based rather than a
reflection of printer capability.

There is considerable discussion of this in the list archives over the
past 3 years, which arises from problems encountered when printing to
Windows with code that locates printed items nicely on the Mac but not
on Windows.

Jack


On Jan 22, 2005, at 2:38 AM, <email address removed> wrote:

> I still don't see how to set the margins to a default value of my
> choosing. I
> would like to programatically set the margins to .50 inches all the way
> around - which is 36 pixels (among 72/inch). However, I am not
> allowed to change
> any of the values. I can only let the user engage in an extra dialog
> (two)
> every time he prints - and this might involve setting up custom sizes
> in OS X.
>
> -----------------------------------------------------------------------
> -------
> ------
>
> Const MarginSize = 36 // 0.5 in = 36/72
> Dim settings as String
> Dim PageSetup as New PrinterSetup
> If PageSetup.PageSetupDialog Then
> settings=PageSetup.SetupString
> PageSetup.PageHeight = 792
> PageSetup.PageLeft = - MarginSize
> PageSetup.PageTop = - MarginSize
> PageSetup.PageWidth = 612
> PageSetup.Height = PageSetup.PageHeight - MarginSize - 40
> PageSetup.Left = MarginSize * 2
> PageSetup.Top = 0
> PageSetup.Width = PageSetup.PageWidth - 2*MarginSize
> End If
>
> -----------------------------------------------------------------------
> -------
> ------
> _______________________________________________
> Unsubscribe or switch delivery mode:
> <http://www.realsoftware.com/support/listmanager/>
> Search the archives of this list here:
> <http://www.realsoftware.com/listarchives/lists.html>

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://www.realsoftware.com/listarchives/lists.html>