以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  指定打印机问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169626)

--  作者:304376480
--  发布时间:2021/6/23 16:15:00
--  指定打印机问题
老师您好!
我自定义了专业报表的预览窗口!打印时如何指定打印机名称?
打印按扭上的代码:
_MyDoc.PrinterName = "HP LaserJet 6L"
_MyDoc.Print()

错误提示: PrinterName 不是 C1.C1Preview.C1PrintDocument 的成员

--  作者:有点蓝
--  发布时间:2021/6/23 16:37:00
--  
_MyDoc是怎么定义的?
--  作者:304376480
--  发布时间:2021/6/23 18:42:00
--  
在全局变量中定义的 _MyDoc
Public _MyRDL As C1.Win.C1Preview.C1PrintPreviewControl
Public _MyDoc As C1.C1Preview.C1PrintDocument

然后  Dim Doc As New PrintDoc \'定义一个新报表
.....报表中的代码....
Doc.Body.Children.Add(ra)
_MyDoc = Doc
Forms("打印预览").Open \'打开了预览窗口

一楼的代码就是预览窗口里的 打印按扭,



--  作者:有点蓝
--  发布时间:2021/6/24 8:41:00
--  
PrintDoc是foxtable自己封装的,才会有PrinterName 属性,C1PrintDocument是没有的。

试试

Doc.Body.Children.Add(ra)
Doc..PrinterName = "HP LaserJet 6L" _MyDoc = Doc

--  作者:304376480
--  发布时间:2021/6/24 9:13:00
--  
试了4楼的方法,也不行啊,没有效果
--  作者:有点蓝
--  发布时间:2021/6/24 9:52:00
--  
如果是内嵌预览窗口的用法,这个只能在预览窗口里选择打印机了


--  作者:304376480
--  发布时间:2021/6/24 11:58:00
--  
预览窗口中打印时是可以选择打印机,但自带的打印按扭有问题,才使用的自定义打印按扭,

1.可以用代码设置,选择打印预览窗口的打印机吗?

2.怎么设置预览时默认显示尺寸为100%?

TopToolStripPanelVisible
BottomToolStripPanelVisible
LeftToolStripPanelVisible
RightToolStripPanelVisible
ContentPanel
LeftToolStripPanel
TopToolStripPanel
RightToolStripPanel
BottomToolStripPanel
ExportOptions
PreviewPane
Document
SsrsPaginated
AvailablePreviewActions
NavigationPanelVisible
StatusBarVisible
TextSearchPanelVisible
TextSearchUIStyle
ImageSet
ThumbnailViewCaption
OutlineViewCaption
PreviewThumbnailView
PreviewOutlineView
PreviewTextSearchPanel
PreviewProgressBar
PreviewStatusText
PreviewNavigationPanel
PreviewStatusBar
ToolBars
AutoScroll
AutoScrollMargin
AutoScrollMinSize
BackColor
BackgroundImage
BackgroundImageLayout
CausesValidation
ContextMenuStrip
Cursor
ForeColor
Controls
AutoScaleDimensions  自动缩放尺寸  (应该是调整这个来设置默认100显示吧,但我不会使用!求代码..)
AutoScaleMode
AutoValidate
BindingContext
ActiveControl
CurrentAutoScaleDimensions
ParentForm
AutoScrollPosition
DisplayRectangle
HorizontalScroll
VerticalScroll
DockPadding
AccessibilityObject
AccessibleDefaultActionDescription
AccessibleDescription
AccessibleName
AccessibleRole
AllowDrop
Anchor
AutoSize
AutoScrollOffset
LayoutEngine
Bottom
Bounds
CanFocus
CanSelect
Capture
ClientRectangle
ClientSize
CompanyName
ContainsFocus
ContextMenu
Created
DataBindings
IsDisposed
Disposing
Dock
Enabled
Focused
Font
Handle
HasChildren
Height
IsHandleCreated
InvokeRequired
IsAccessible
IsMirrored
Left
Location
Margin
MaximumSize
MinimumSize
Name
Parent
ProductName
ProductVersion
RecreatingHandle
Region
Right
RightToLeft
Site
Size
TabIndex
TabStop
Tag
Text
Top
TopLevelControl
UseWaitCursor
Visible
Width
WindowTarget
PreferredSize
Padding
ImeMode
Container
[此贴子已经被作者于2021/6/24 11:58:30编辑过]

--  作者:有点蓝
--  发布时间:2021/6/24 12:04:00
--  
1、没有办法
2、这玩意是设置窗口控件的缩放的,不是控制打印预览的内容缩放的