vb6.0实现打印预览

实例介绍

【实例简介】

【实例截图】

from clipboard

【核心代码】

Option Explicit
'Download by http://www.NewXing.com
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) 'frmPrnPrv.ScaleWidth
        Prv.Height = (mm * 29.7) * (Val(zVal.Text) / 100) 'frmPrnPrv.ScaleHeight
        Prv.ScaleWidth = (mm * 21) 'frmPrnPrv.ScaleWidth
        Prv.ScaleHeight = (mm * 29.7) 'frmPrnPrv.ScaleHeight
        Prv.Refresh
        Scala = frmPrnPRV.Prv.Height / frmPrnPRV.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
        frmPrnPRN.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   "\"

    frmPrnPRV.Height = Screen.Height * 0.9
    frmPrnPRV.Width = Screen.Width * 0.9
    Prv.Width = frmPrnPRV.ScaleWidth - (vBar.Width   (NM_PP_Ofs * 2))
    Prv.Height = frmPrnPRV.ScaleHeight - (hBar.Height   Cmd(0).Height   sBar.Height)
    
    Prv.ScaleMode = SistemaCoordinate
    Prv.Top = Cmd(0).Height
    Prv.Left = NM_PP_Ofs
    Prv.Width = frmPrnPRV.ScaleWidth - (vBar.Width   (NM_PP_Ofs * 2))
    Prv.Height = frmPrnPRV.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
    
    frmPrnPRV.Refresh
    frmPrnPRV.Left = (Screen.Width / 2) - (frmPrnPRV.Width / 2)
    frmPrnPRV.Top = (Screen.Height / 2) - (frmPrnPRV.Height / 2)
    
    zVal.ListIndex = 3
    
    Prv.Cls

    frmPrnPRV.Show vbModeless

End Sub

Private Sub Form_Resize()

  If frmPrnPRV.ScaleWidth > 1000 And frmPrnPRV.ScaleHeight > 1000 Then

    Prv.Top = Cmd(0).Height
    Prv.Left = NM_PP_Ofs
    'Prv.Width = frmPrnPrv.ScaleWidth - (vBar.Width   (NM_PP_Ofs * 2))
    'Prv.Height = frmPrnPrv.ScaleHeight - (hBar.Height   bBar.Height   sBar.Height)
    
    vBar.Top = Cmd(0).Height
    vBar.Left = frmPrnPRV.ScaleWidth - (vBar.Width   NM_PP_Ofs)
    vBar.Height = frmPrnPRV.ScaleHeight - (Cmd(0).Height   sBar.Height   hBar.Height)
    
    hBar.Top = frmPrnPRV.ScaleHeight - (sBar.Height   hBar.Height)
    hBar.Left = NM_PP_Ofs
    hBar.Width = frmPrnPRV.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

标签： 打印 vb 0 预览

实例下载地址

点此下载实例

不能下载？内容有错？点击这里报错 + 投诉 + 提问

好例子网口号：伸出你的我的手 — 分享！

网友评论

我要评论

小贴士

感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。

类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见版权及免责申明

vb6.0实现打印预览

同类人气实例

实例介绍

实例下载地址

vb6.0实现打印预览

相关软件

相关文章

网友评论

小贴士

关于好例子网

下载周排行

下载总排行