?? n_prnprv.frm
字號:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 264
Left = 252
TabIndex = 3
Top = 8640
Visible = 0 'False
Width = 1164
End
Begin VB.CommandButton Command2
Caption = "Imposta A4"
BeginProperty Font
Name = "MS Sans Serif"
Size = 7.8
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 264
Left = 252
TabIndex = 2
Top = 8352
Visible = 0 'False
Width = 1164
End
Begin VB.CommandButton Command1
Caption = "prova"
BeginProperty Font
Name = "MS Sans Serif"
Size = 7.8
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 408
Left = 1656
TabIndex = 1
Top = 8172
Visible = 0 'False
Width = 1452
End
Begin VB.PictureBox Prv
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 6240
Left = 72
ScaleHeight = 6240
ScaleMode = 0 'User
ScaleWidth = 4476
TabIndex = 0
TabStop = 0 'False
Top = 468
Width = 4476
End
End
Attribute VB_Name = "PrnPrv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Function DoTest() As Integer
Static Dove As Integer
Dove = ANTEPRIMA
Prv.Cls
PrintBox 1, 1, 20, 28.7, Dove
PrintInLef 5, 5, "carattere: Arial", "Arial", 20, False, Dove
PrintInLef 5, 10, "carattere: Britannic Bold", "Britannic Bold", 20, False, Dove
PrintInLef 5, 15, "carattere: Castanet", "Castanet", 20, False, Dove
PrintInLef 5, 20, "carattere: Ms Sans Serif", "Ms Sans Serif", 20, False, Dove
PrintInLef 5, 21, "Ecco una prova di anteprima di stampa 'VIRTUALE'", "Ms Sans Serif", 20, False, Dove
End Function
Sub SetA4()
Prv.Width = Prv.Height * (21 / 29.7)
Prv.ScaleWidth = mm * 21
Prv.ScaleHeight = mm * 29.7
Scala = Prv.Height / Prv.ScaleHeight
End Sub
Sub MostraPagina()
Prv.ScaleMode = SistemaCoordinate
Prv.Width = (mm * 21) * (Val(zVal.Text) / 100) 'PrnPrv.ScaleWidth
Prv.Height = (mm * 29.7) * (Val(zVal.Text) / 100) 'PrnPrv.ScaleHeight
Prv.ScaleWidth = (mm * 21) 'PrnPrv.ScaleWidth
Prv.ScaleHeight = (mm * 29.7) 'PrnPrv.ScaleHeight
Prv.Refresh
Scala = PrnPrv.Prv.Height / PrnPrv.Prv.ScaleHeight
TempShow 0, 0, Prv.Width, Prv.Height
End Sub
Sub SistemaHBAR()
Static X1 As Single, Y1 As Single
Static X2 As Single, Y2 As Single
TempShow hBar.Value, vBar.Value, hBar.Value + hBar.Width, vBar.Value + vBar.Height
End Sub
Sub SistemaVBAR()
Static X1 As Single, Y1 As Single
Static X2 As Single, Y2 As Single
TempShow hBar.Value, vBar.Value, hBar.Value + hBar.Width, vBar.Value + vBar.Height
End Sub
Private Sub Cmd_Click(Index As Integer)
Select Case Index
Case 0 'refresh
MostraPagina
Case 1 'zoom in
If zVal.ListIndex < zVal.ListCount - 1 Then
zVal.ListIndex = zVal.ListIndex + 1
MostraPagina
End If
Case 2 'zoom out
If zVal.ListIndex > 0 Then
zVal.ListIndex = zVal.ListIndex - 1
MostraPagina
End If
Case 3 'sep
PrnPrn.Show vbModal
Case 4 'setup prn
Apre.Flags = cdlPDPrintSetup
Apre.Action = &H5
Case 5 'fst pg
If ePag.ListIndex > 0 Then
ePag.ListIndex = 0
MostraPagina
End If
Case 6 'prv pg
If ePag.ListIndex > 0 Then
ePag.ListIndex = ePag.ListIndex - 1
MostraPagina
End If
Case 7 'nxt pg
If ePag.ListIndex < ePag.ListCount - 1 Then
ePag.ListIndex = ePag.ListIndex + 1
MostraPagina
End If
Case 8 'lst pg
If ePag.ListIndex < ePag.ListCount - 1 Then
ePag.ListIndex = ePag.ListCount - 1
MostraPagina
End If
Case 9 'about
PrnINFO.Show vbModal
Case 10 'unload
Unload Me
End Select
End Sub
Private Sub Command1_Click()
Static A%
A% = DoTest()
End Sub
Private Sub Command2_Click()
Prv.Cls
Prv.Width = Prv.Height * (21 / 29.7)
Prv.ScaleWidth = mm * 21
Prv.ScaleHeight = mm * 29.7
Scala = Prv.Height / Prv.ScaleHeight
End Sub
Private Sub Command3_Click()
Prv.Cls
Prv.Width = Prv.Height * (15 / 21)
Prv.ScaleWidth = mm * 15
Prv.ScaleHeight = mm * 21
Scala = Prv.Height / Prv.ScaleHeight
End Sub
Private Sub Command4_Click()
Prv.Cls
Prv.Width = Prv.Height * (29.7 / 42)
Prv.ScaleWidth = mm * 29.7
Prv.ScaleHeight = mm * 42
Scala = Prv.Height / Prv.ScaleHeight
End Sub
Private Sub Command6_Click()
PrintRefGrid ANTEPRIMA
End Sub
Private Sub Form_Activate()
MostraPagina
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
ElseIf KeyCode = vbKeyReturn Then
MostraPagina
ElseIf KeyCode = vbKeyHome Then
vBar.Value = vBar.Min
ElseIf KeyCode = vbKeyEnd Then
vBar.Value = vBar.Max
ElseIf KeyCode = vbKeyUp Then
If vBar.Value - vBar.LargeChange < vBar.Min Then
vBar.Value = vBar.Min
Else
vBar.Value = vBar.Value - vBar.LargeChange
End If
ElseIf KeyCode = vbKeyDown Then
If vBar.Value + vBar.LargeChange > vBar.Max Then
vBar.Value = vBar.Max
Else
vBar.Value = vBar.Value + vBar.LargeChange
End If
ElseIf KeyCode = vbKeyPageUp Then
If ePag.ListIndex > 0 Then
ePag.ListIndex = ePag.ListIndex - 1
MostraPagina
End If
ElseIf KeyCode = vbKeyPageDown Then
If ePag.ListIndex < ePag.ListCount - 1 Then
ePag.ListIndex = ePag.ListIndex + 1
MostraPagina
End If
ElseIf KeyCode = vbKeyRight Then
If hBar.Value + hBar.LargeChange > hBar.Max Then
hBar.Value = hBar.Max
Else
hBar.Value = hBar.Value + hBar.LargeChange
End If
ElseIf KeyCode = vbKeyLeft Then
If hBar.Value - hBar.LargeChange < hBar.Min Then
hBar.Value = hBar.Min
Else
hBar.Value = hBar.Value - hBar.LargeChange
End If
ElseIf KeyCode = vbKeyAdd Then
If zVal.ListIndex < zVal.ListCount - 1 Then
zVal.ListIndex = zVal.ListIndex + 1
MostraPagina
End If
ElseIf KeyCode = vbKeySubtract Then
If zVal.ListIndex > 0 Then
zVal.ListIndex = zVal.ListIndex - 1
MostraPagina
End If
End If
End Sub
Private Sub Form_Load()
LocPerc = CurDir
If Right(LocPerc, 1) <> "\" Then LocPerc = LocPerc + "\"
PrnPrv.Height = Screen.Height * 0.9
PrnPrv.Width = Screen.Width * 0.9
Prv.Width = PrnPrv.ScaleWidth - (vBar.Width + (NM_PP_Ofs * 2))
Prv.Height = PrnPrv.ScaleHeight - (hBar.Height + Cmd(0).Height + sBar.Height)
Prv.ScaleMode = SistemaCoordinate
Prv.Top = Cmd(0).Height
Prv.Left = NM_PP_Ofs
Prv.Width = PrnPrv.ScaleWidth - (vBar.Width + (NM_PP_Ofs * 2))
Prv.Height = PrnPrv.ScaleHeight - (hBar.Height + Cmd(0).Height + sBar.Height)
vBar.Top = Prv.Top
vBar.Left = Prv.Left + Prv.Width
vBar.Height = Prv.Height
hBar.Left = Prv.Left
hBar.Top = Prv.Top + Prv.Height
hBar.Width = Prv.Width
PrnPrv.Refresh
PrnPrv.Left = (Screen.Width / 2) - (PrnPrv.Width / 2)
PrnPrv.Top = (Screen.Height / 2) - (PrnPrv.Height / 2)
zVal.ListIndex = 3
Prv.Cls
PrnPrv.Show vbModeless
End Sub
Private Sub Form_Resize()
If PrnPrv.ScaleWidth > 1000 And PrnPrv.ScaleHeight > 1000 Then
Prv.Top = Cmd(0).Height
Prv.Left = NM_PP_Ofs
'Prv.Width = PrnPrv.ScaleWidth - (vBar.Width + (NM_PP_Ofs * 2))
'Prv.Height = PrnPrv.ScaleHeight - (hBar.Height + bBar.Height + sBar.Height)
vBar.Top = Cmd(0).Height
vBar.Left = PrnPrv.ScaleWidth - (vBar.Width + NM_PP_Ofs)
vBar.Height = PrnPrv.ScaleHeight - (Cmd(0).Height + sBar.Height + hBar.Height)
hBar.Top = PrnPrv.ScaleHeight - (sBar.Height + hBar.Height)
hBar.Left = NM_PP_Ofs
hBar.Width = PrnPrv.ScaleWidth - (vBar.Width + (NM_PP_Ofs * 2))
End If
End Sub
Private Sub hBar_Change()
SistemaHBAR
End Sub
Private Sub vBar_Change()
SistemaVBAR
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -