【VB开源代码栏目提醒】：网学会员VB开源代码为您提供fPrint.frm参考，解决您在fPrint.frm学习中工作中的难题，参考学习。
VERSION 5.00
Begin VB.Form fPrint
BorderStyle = 3 'Fixed Dialog
Caption = "Print"
ClientHeight = 3420
ClientLeft = 45
ClientTop = 330
ClientWidth = 4500
ClipControls = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "fPrint.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 228
ScaleMode = 3 'Pixel
ScaleWidth = 300
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 375
Left = 3300
TabIndex = 13
Top = 2925
Width = 1050
End
Begin VB.CommandButton cmdOK
Caption = "Print"
Default = -1 'True
Height = 375
Left = 2160
TabIndex = 12
Top = 2925
Width = 1050
End
Begin VB.TextBox txtCopies
Alignment = 1 'Right Justify
BackColor = &H8000000F&
Height = 300
Left = 2805
Locked = -1 'True
TabIndex = 5
TabStop = 0 'False
Text = "1"
Top = 855
Width = 390
End
Begin VB.VScrollBar sbCopies
Height = 300
Left = 3210
Max = 1
Min = 99
TabIndex = 6
Top = 855
Value = 1
Width = 210
End
Begin VB.ComboBox cbPrinters
Height = 315
Left = 180
Style = 2 'Dropdown List
TabIndex = 1
Top = 375
Width = 4170
End
Begin VB.CheckBox chkCenter
Caption = "&Center image"
Height = 240
Left = 1215
TabIndex = 10
Top = 2070
Value = 1 'Checked
Width = 1335
End
Begin VB.CheckBox chkFitMode
Caption = "&Fit to page"
Height = 240
Left = 1215
TabIndex = 11
Top = 2340
Width = 1170
End
Begin VB.ComboBox cbQuality
Height = 315
ItemData = "fPrint.frx":000C
Left = 825
List = "fPrint.frx":001C
Style = 2 'Dropdown List
TabIndex = 3
Top = 855
Width = 1215
End
Begin VB.ComboBox cbOrientation
Height = 315
ItemData = "fPrint.frx":003A
Left = 1215
List = "fPrint.frx":0044
Style = 2 'Dropdown List
TabIndex = 8
Top = 1530
Width = 1410
End
Begin VB.Label lblCopies
Caption = "Copies"
Height = 210
Left = 2220
TabIndex = 4
Top = 915
Width = 585
End
Begin VB.Label lblSelect
Caption = "Printer"
Height = 210
Left = 195
TabIndex = 0
Top = 150
Width = 630
End
Begin VB.Label lblQuality
Caption = "Quality"
Height = 285
Left = 195
TabIndex = 2
Top = 915
Width = 705
End
Begin VB.Label lblOrientation
Caption = "Orientation"
Height = 210
Left = 195
TabIndex = 7
Top = 1590
Width = 915
End
Begin VB.Label lblAdjust
Caption = "Adjustment"
Height = 240
Left = 195
TabIndex = 9
Top = 2085
Width = 990
End
End
Attribute VB_Name = "fPrint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'================================================
' fPrint form
' Last revision: 2003.11.02
'================================================
Option Explicit
Public Enum pOrientationConstants
[poPortrait] = 1
[poLandScape]
End Enum
Private Sub Form_Load()
Dim lIdx As Long
'-- Get available printers
For lIdx = 0 To Printers.Count - 1
Call cbPrinters.AddItem(Printers(lIdx).DeviceName)
Next lIdx
'-- Show curr. printer
cbPrinters = Printer.DeviceName
'-- Set print quality (Medium)
cbQuality.ListIndex = 2
'-- Set pre-orientation
With fMain.Canvas.DIB
If (.Width < .Height) Then
cbOrientation.ListIndex = 0
Else
cbOrientation.ListIndex = 1
End If
End With
End Sub
Private Sub Form_Paint()
Line (0, 185)-(ScaleWidth, 185), vb3DShadow
Line (0, 186)-(ScaleWidth, 186), vb3DHighlight
End Sub
Private Sub cbPrinters_Click()
Dim iPrn As Printer
'-- Select printer
For Each iPrn In Printers
If (iPrn.DeviceName = cbPrinters) Then
Set Printer = iPrn
End If
Next iPrn
End Sub
Private Sub sbCopies_Change()
txtCopies = sbCopies
End Sub
Private Sub sbCopies_GotFocus()
txtCopies.BackColor = vbWindowBackground
End Sub
Private Sub sbCopies_LostFocus()
txtCopies.BackColor = vbButtonFace
End Sub
'//
Private Sub cmdOK_Click
相关文章
2013-9-1
