📄 n_prnprv.frm
字号:
_ExtentY = 688
_Version = 393216
End
Begin VB.HScrollBar hBar
Height = 210
Left = 108
TabIndex = 7
Top = 6768
Width = 4476
End
Begin VB.VScrollBar vBar
Height = 6240
Left = 4608
TabIndex = 6
Top = 468
Width = 225
End
Begin VB.CommandButton Command6
Caption = "ref grid"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 264
Left = 3348
TabIndex = 5
Top = 8100
Visible = 0 'False
Width = 1164
End
Begin VB.CommandButton Command4
Caption = "Imposta A3"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 264
Left = 252
TabIndex = 4
Top = 8064
Visible = 0 'False
Width = 1164
End
Begin VB.CommandButton Command3
Caption = "Imposta B5"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
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 = 8.25
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 = 8.25
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 = 90
ScaleHeight = 6240
ScaleMode = 0 'User
ScaleWidth = 4476
TabIndex = 0
TabStop = 0 'False
Top = 480
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
Sub MostraPagina()
'MsgBox "paper_w:" & Paper_W & " H:" & Paper_H
Prv.ScaleMode = SistemaCoordinate
Prv.Width = (mm * Paper_W) * (Val(zVal.Text) / 100) 'PrnPrv.ScaleWidth
Prv.Height = (mm * Paper_H) * (Val(zVal.Text) / 100) 'PrnPrv.ScaleHeight
Prv.ScaleWidth = (mm * Paper_W) 'PrnPrv.ScaleWidth
Prv.ScaleHeight = (mm * Paper_H) '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 10 'unload
Unload Me
End Select
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
vBar.Width = 250
hBar.Left = Prv.Left
hBar.Top = Prv.Top + Prv.Height
hBar.Width = Prv.Width
hBar.Height = 250
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 + -