Photoshop中如何創(chuàng)建A4大小的紙?

1、電腦打開Photoshop，然后點擊文件中的新建。

我們提供的服務(wù)有：成都網(wǎng)站建設(shè)、做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、丹棱ssl等。為上千企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的丹棱網(wǎng)站制作公司

2、進(jìn)入新建頁面，把單位設(shè)置為厘米，然后輸入寬度21，高度19.7，A4尺寸21cm*29.7cm。

3、設(shè)置好之后，點擊底部的創(chuàng)建。

4、點擊創(chuàng)建后，A4大小的畫布就創(chuàng)建好了。

vb.net獲取excel頁面高度

1 打開Excel dim myexcelas new Excel.Application() myexcel.visible=true

2 添加新的工作簿myexcel.Workbooks.add()

3 設(shè)定第二個工作表為活動工作表myexcel.worksheets(2).Acivate()

4 打開指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)

5 顯示Excel窗口myexcel.visible=true

6 更改Excel的標(biāo)題欄myexcel.caption=“歡迎,歡迎!”

7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫: myexcel.Range(“D1”).value=100

8 設(shè)置指定列的寬度(單位:字符個數(shù))myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20

9 設(shè)置指定行的高(單位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米設(shè)置第1行的高度為1CM

10 插入分頁符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分頁符

11 刪除分頁符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁符

12 指定邊框線的寬度myexcel.Activesheet.range(“B3:D3”).borders(1).weight=3 其中borders參數(shù)指定單元格邊框的位置:1:左 2:右 3:頂 4:底 5:斜\ 6:斜/

13 指定邊框線條的類型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此語句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實線 linestyle參數(shù): 1:細(xì)實線 2:細(xì)虛線 3:點虛線 4:雙細(xì)實線

14 設(shè)置頁腳myexcel.activesheet.pagesetup.centerfooter=“第p頁” 注意:設(shè)置頁眉頁腳時要保證計算機(jī)上裝有打印機(jī),否則出錯!

15 設(shè)置頁眉myexcel.activesheet.pagesetup.centerfooter=“第p頁”

16 設(shè)置頁眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 設(shè)置頁腳到底端距離為2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035

18 設(shè)置頂邊邊距為2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035

19 設(shè)置底邊邊距為2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035

20 設(shè)置左邊邊距為2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035

21 設(shè)置右邊邊距為2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035

22 設(shè)置頁面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true

23 設(shè)置頁面垂直居中myexcel.activesheet.pagesetup.Centervertically=true

24 設(shè)置頁面紙張大小 (1,窄行8.511 ;39 ,寬行1411) myexcel.activesheet.pagesetup.papersize=1

25 打印單元格網(wǎng)格線 myexcel.activesheet.pagesetup.PrintGridlines=true

26 復(fù)制整個工作表 myexcel.activesheet.Usedrange.Copy

27 復(fù)制指定區(qū)域 myexcel.activesheet.range(“a1:b5”).Copy

28 粘貼 myexcel.worksheets(“sheet2”).range(“A1”).PasteSpecial

29 在第2行前插入一行 myexcel.activesheet.rows(2).Insert

30 在第2列前插入一列 myexcel.Activesheet.Columns(2).Insert

31 合并 C4:D4 單元格 myexcel.Activesheet.Range(“C4:D4”).Merge()

32 自動調(diào)整第2列列寬 myexcel.activesheet.Columns(2).AutoFit

33 設(shè)置字體myexcel.Activesheet.cells(2,1).font.name=“黑體”

34 設(shè)置字體大小myexcel.Activesheet.cells(2,1).font.size=25

35 設(shè)置字體為斜體 myexcel.Activesheet.cells(2,1).font.Italic=true

36 設(shè)置字體為粗體 myexcel.Activesheet.cells(2,1).font.Bold=true

37 清除單元格內(nèi)容myexcel.activesheet.cells(2,1).ClearContents

38 打印預(yù)覽工作表myexcel.Activesheet.PrintPreview

39 打印工作表 myexcel.Activesheet.Printout

40 工作表另存為myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)

41 放棄存盤 myexcel.ActiveWorkbook.saved=false

42 關(guān)閉工作簿 myexcel.Workbooks.close

43 退出 Excel myexcel.quit

44 紙張橫向：myexcel.activesheet.PageSetup.OrientaTion=2（1縱向）

45 單元格居中：cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向

打開CSDN APP，看更多技術(shù)內(nèi)容

VB調(diào)用Excel軟件實現(xiàn)打印預(yù)覽功能

摘要:VB源碼,報表打印,打印預(yù)覽VB調(diào)用Excel軟件實現(xiàn)打印預(yù)覽功能，可以插入折線圖，VB打印預(yù)覽功能示例源碼，分享給大家參考。

用vb操作EXCEL打印報表

最近使用vb來打印報表,打印出來的EXCEL一直無法上傳到ftp 反復(fù)多次問題都沒解決, 200 PORT command successful. Consider using PASV. 問題出在這,由于win10的防火墻的原因,關(guān)閉防火墻后問題得到解決. 轉(zhuǎn)載于:...

繼續(xù)訪問

VB操作excel 格式設(shè)置及打印頁面設(shè)置（精簡）

langue：VB Set ExcelApp = CreateObject("Excel.Application") ’創(chuàng)建資源，建立連接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...

繼續(xù)訪問

vb.net excel操作：填充人事檔案表并打印

節(jié)選自：《Visual Basic.Net 循序漸進(jìn)》【例 21.7】【項目：code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為：職員信息登記表.xlsx，如下圖所示： 圖21-10 職員信息登記表 窗體設(shè)計如下圖所示（注意：為了演示方便，已經(jīng)填充了數(shù)據(jù)）： 圖21-11 窗體設(shè)計 在本例中還需要掌握的知識： 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen

繼續(xù)訪問

vb.net操作Excel常用命令

轉(zhuǎn)載: 首先,須在項目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開Excel： dim myexcel as new Excel.Application() myexcel.visib...

繼續(xù)訪問

vb.net 如何實現(xiàn)報表打印_Excel如何實現(xiàn)分類別打印？創(chuàng)建組輕松實現(xiàn)

有朋友咨詢個關(guān)于Excel打印數(shù)據(jù)問題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領(lǐng)導(dǎo)要求將表格分部門打印出來，每位員工核對個人信息并簽字。需求很明確，就是將相同部門的人員打印到一張紙上。打印很簡單，難點在于如何按每個部門去打印？如果部門較少的話可以將不同部門復(fù)制到不同插頁中，再進(jìn)行打印；但是如果部門較多的話，這種辦法實在不可取；有小伙伴表示可以利用VBA技術(shù)將部門拆分到各個插頁，在進(jìn)行打印...

繼續(xù)訪問

最新發(fā)布 vb.net 教程 11-1 打印組件 3 PageSetupDialog

版權(quán)聲明：本文為博主原創(chuàng)文章，轉(zhuǎn)載請在顯著位置標(biāo)明本文出處以及作者網(wǎng)名，未經(jīng)作者允許不得用于商業(yè)目的。 本節(jié)談?wù)劻硗庖粋€有關(guān)打印的對話框：PageSetupDialog，頁面設(shè)置對話框 實際我們是通過這個對話框獲得PageSetting，關(guān)于PageSetting在上一節(jié)有部分介紹，請參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個PrintDocument，在PageSetupDialog的Document屬性處

繼續(xù)訪問

VB.NET使用EXCEL常見操作

首先,須在項目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打開Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad

繼續(xù)訪問

【VB Excel】VB 操作Excel基本步驟

VB操作EXCEL,實現(xiàn)數(shù)據(jù)讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開Excel進(jìn)程，并打開目標(biāo)Exc...

繼續(xù)訪問

vba代碼編程800例_如何設(shè)置Excel打印格式，學(xué)會這個VBA對象就可以隨心所欲

NO.1 Excel如何設(shè)置打印格式使用vba可以做打印格式處理，如何做一個漂亮的打印頁面，不外乎要設(shè)置打印表格的邊框、版式、頁眉、頁角等等。那么怎樣設(shè)置這些格式呢？NO.2 PageSetup對象vba編程用到Pagesetup對象，對表格打印進(jìn)行設(shè)置。PageSetup對象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對照進(jìn)行設(shè)置。具體方法下面舉個例子來展示一下最終效果。PageSetup...

繼續(xù)訪問

vb.net操作excel文件

[轉(zhuǎn)自] vb.net操作excel文件 要求將數(shù)據(jù)顯示在Excel表中，并且要設(shè)好數(shù)據(jù)格式。雖說如此，真正實現(xiàn)了自己的功能，還是費了不少時間。相信還是有很多與我相似的人需要實現(xiàn)這種功能。那就做個小結(jié)吧。不妥之處，請指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問excel的過程中定義 dim exapp as excel.a

繼續(xù)訪問

VB.net使用PrintForm打印窗體

在VS2010中內(nèi)置了了一個PowerPacks的擴(kuò)展包,果然很好用啊,可以直接打印窗體內(nèi)容 先從"工具箱"中拖一個PrintForm到設(shè)計好的窗體中 然后在窗體里加了個打印的按鈕,對應(yīng)代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.

繼續(xù)訪問

熱門推薦 開源:.NET環(huán)境下有關(guān)打印頁面設(shè)置、打印機(jī)設(shè)置、打印預(yù)覽對話框的實現(xiàn)與應(yīng)用(2)

!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_

繼續(xù)訪問

vb.net 設(shè)置打印紙張與頁邊距_機(jī)關(guān)公文格式設(shè)置規(guī)范(最新整理版)

本方法根據(jù)《黨政機(jī)關(guān)公文格式國家標(biāo)準(zhǔn)》(GB/T9704-2012)制定。具體內(nèi)容如下：一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁面設(shè)置1.選擇“文件”——“頁面設(shè)置”選擇“頁邊距”附簽，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.選擇“紙張”附簽，“紙張大小”設(shè)成“A4”。3.選擇“版式”附簽，將“頁眉和頁腳”設(shè)置成“奇偶頁不同”,在該...

繼續(xù)訪問

VB.NET EXCEL 操作

a4打印尺寸怎么調(diào)整

品牌型號：戴爾Latitude 7320

系統(tǒng)：Windows 10 home

軟件版本:Adobe Photoshop CC 2019 圖文步驟：

1、電腦打開Adobe Photoshop CC 2019，然后點擊新建。

2、進(jìn)入新建畫布頁面，把單位設(shè)置成厘米，然后輸入A4紙尺寸21乘29.7cm，分辨率為300。

3、點擊創(chuàng)建后，創(chuàng)建A4紙大小的畫布。

4、然后直接把照片拖進(jìn)來，按住SHift鍵調(diào)整大小位置，按Ctrl加回車確定。

5、最后Ctrl+Shift+S進(jìn)入保存頁面，保存類型設(shè)置JPEG，點擊確定。

VB 控制picturebox內(nèi)容適應(yīng)A4紙張大小,橫向縱向調(diào)整,適合打印輸出和圖形輸出一致!

設(shè)置打印機(jī)的默認(rèn)紙張是a4，在vb中就可以通過printer對象可以取得a4紙張大小，可以記錄下來，供以后使用；

下邊是我寫的一段利用picturebox做的打印預(yù)覽程序，僅供參考！

Set flg = Oform.mOform.flg

iNowPage = 1

iRows = flg.Rows - 1

'1 獲取用戶的設(shè)置

sngMargin(0) = CDbl(Oform.txtM(0)) * mCcmToTwips '將厘米換算成緹

sngMargin(1) = CDbl(Oform.txtM(1)) * mCcmToTwips '將厘米換算成緹

sngFontSize = gaUserfont(1).Size * mCPointToTwips * mntimes

sngTblM = gaUserfont(0).Size * mntimes * mCPointToTwips + sngMargin(0) '頁眉高度

s_getColIndex '取出全部打印列（flg中的col）

s_GetMergeCols '取出合并列的合并次數(shù)

s_CalcColsWidth '計算列的打印寬度

'2 判斷紙張大小是否足以打下報表

'If sngTblWid Printer.ScaleWidth Then

If sngTblWid Printer.ScaleWidth Then

Screen.MousePointer = 0

If MsgBox("部分內(nèi)容已超出頁面范圍。是否繼續(xù)?", vbQuestion + vbYesNo, "萬能打印") = vbNo Then Exit Sub

End If

'3 計算每頁最多可打印的行數(shù)（（頁高—上下空白）/行高—1）

iMaxRecsPerPage = Int((Printer.ScaleHeight - sngTblM - sngMargin(1)) / (1.5 * sngFontSize) - 1)

If CInt(iRows / iMaxRecsPerPage) - Int(iRows / iMaxRecsPerPage) = 1 Then

iPages = CInt(iRows / iMaxRecsPerPage)

Else

iPages = CInt(iRows / iMaxRecsPerPage) + 1

End If

UpDown1.Max = iPages

'4.開始打印

With Pic1

'.ScaleHeight = Printer.ScaleHeight

' .ScaleWidth = Printer.ScaleWidth

Frame1.Width = Me.ScaleWidth + 500

.Height = Printer.ScaleHeight * mntimes

.Width = Printer.ScaleWidth * mntimes

.ScaleHeight = Printer.ScaleHeight

.ScaleWidth = Printer.ScaleWidth

.Left = 0

.Top = 600

Hsb.Min = 0

If .Width = Hsb.Width Then

Hsb.Visible = False

Else

Hsb.Visible = True

Hsb.Max = .Width - Hsb.Width

Hsb.Value = (.Width - Hsb.Width) / 2

End If

Vsb.Min = 540

If .Height + 600 = Me.ScaleHeight Then

Vsb.Visible = False

Else

Vsb.Visible = True

Vsb.Max = .Height - Vsb.Height

End If

' Me.Height = Me.ScaleHeight * 0.75

' Me.Width = Me.ScaleWidth * 0.75

For iC = 1 To Val(Oform.txtCopies) '對份數(shù)循環(huán)

For iNowPage = miPages To iPages '對頁范圍循環(huán)

'4-1 打印表頭

' 不能用Set Printer.Font = gaUserfont(0)，打印機(jī)字體可能被某些隱含過程改變，從而影響到userfont

With .Font

.name = gaUserfont(0).name

.Size = gaUserfont(0).Size * mntimes

.Bold = gaUserfont(0).Bold

.Italic = gaUserfont(0).Italic

.Underline = gaUserfont(0).Underline

.Strikethrough = False

End With

sTmp = Oform.txtTitle "(" Trim(Oform.mOform.Tag) ")"

.CurrentX = sngLMargin + (sngTblWid - Pic1.TextWidth(sTmp)) / 2

.CurrentY = sngMargin(0) - sngFontSize * 2

Pic1.Print sTmp

'4-2 在表格的右上部打印＂打印日期＂

With .Font

.name = gaUserfont(1).name

.Size = gaUserfont(1).Size * mntimes

.Bold = gaUserfont(1).Bold

.Italic = gaUserfont(1).Italic

.Underline = gaUserfont(1).Underline

.Strikethrough = False

End With

sStr = "打印時間： " Now()

.CurrentX = sngLMargin + sngTblWid - Pic1.TextWidth(sStr) - 200

.CurrentY = sngTblM - sngFontSize * 1.5

Pic1.Print sStr

'在頁底邊中間打印頁碼

.Font.Size = gaUserfont(1).Size * mntimes

.CurrentX = .ScaleWidth / 2

.CurrentY = .ScaleHeight - sngMargin(1)

Pic1.Print "第" CStr(iNowPage) "頁"

'4-3 打印列標(biāo)題

.DrawWidth = 1

'4-3-1劃上邊線

.CurrentX = sngLMargin

.CurrentY = sngTblM - sngFontSize / 4

Pic1.Line -Step(sngTblWid, 0) '劃上邊線

'4-3-2劃左邊線

.CurrentX = sngLMargin

.CurrentY = sngTblM - sngFontSize / 4

Pic1.Line -Step(0, 1.5 * sngFontSize) '劃左邊線

tmpX = sngLMargin

tmpY = sngTblM

.CurrentY = tmpY

With .Font

.name = gaUserfont(1).name

.Size = gaUserfont(1).Size * mntimes

.Bold = gaUserfont(1).Bold

.Italic = gaUserfont(1).Italic

.Underline = gaUserfont(1).Underline

.Strikethrough = False

End With

For iA = 0 To miCols - 1

.CurrentY = tmpY

If miMergeTimes(iA) = 1 Then

' If miAlignment(iA) = flexAlignLeftCenter Then

' .CurrentX = tmpX + sngFontSize / 4

' Else

' .CurrentX = tmpX + sngColWid(iA) - Pic1.TextWidth(Oform.lstChosenFlds.List(iA)) - sngFontSize / 4

' If .CurrentX tmpX Then .CurrentX = tmpX + sngFontSize / 4

' End If

Else

.CurrentX = tmpX + (sngColWid(iA) * miMergeTimes(iA) - Pic1.TextWidth(Oform.lstChosenFlds.List(iA))) / 2 - sngFontSize / 4

End If

'輸出數(shù)據(jù)

sStr = Trim(Oform.lstChosenFlds.List(iA))

'截取尾部的數(shù)字

If IsNumeric(Right(sStr, 1)) Then sStr = Left(sStr, Len(sStr) - 1)

If IsNumeric(Right(sStr, 1)) Then sStr = Left(sStr, Len(sStr) - 1)

.CurrentX = tmpX + (sngColWid(iA) * miMergeTimes(iA) - Printer.TextWidth(sStr)) / 2 - sngFontSize / 4

If .CurrentX tmpX Then .CurrentX = tmpX

Pic1.Print sStr

'確定位置

.CurrentX = tmpX

.CurrentY = tmpY + sngFontSize * 1.25

'劃下邊線

Pic1.Line -Step(sngColWid(iA) * miMergeTimes(iA), 0)

tmpX = tmpX + sngColWid(iA) * miMergeTimes(iA)

.CurrentX = tmpX

.CurrentY = tmpY - sngFontSize / 4

'劃右邊線

Pic1.Line -Step(0, sngFontSize * 1.5)

Next

'4－4打印數(shù)據(jù)

tmpY = tmpY + sngFontSize * 1.25

tmpX = sngLMargin

.CurrentX = tmpX

.CurrentY = tmpY

iFRow = (iNowPage - 1) * iMaxRecsPerPage + 1 '第一行的行數(shù)

iLRow = iNowPage * iMaxRecsPerPage '最后一行的行數(shù)

'如果最后行數(shù)大于最大行取最大行為最后行

iLRow = IIf(iLRow iRows, iRows, iLRow)

For iNowRow = iFRow To iLRow

tmpX = sngLMargin

.CurrentX = tmpX

.CurrentY = tmpY

For iCycle = 0 To miCols - 1

iNowcol = miColIndex(iCycle)

.CurrentX = tmpX

.CurrentY = tmpY

For iMerge = 1 To miMergeTimes(iCycle)

'劃左邊線

.CurrentX = tmpX

.CurrentY = tmpY

Pic1.Line -Step(0, 1.5 * sngFontSize)

'打印數(shù)據(jù)

If flg.ColAlignment(iNowcol) = flexAlignRightCenter Then

.CurrentX = tmpX + sngColWid(iCycle) * iMerge - .TextWidth(flg.TextMatrix(iNowRow, iNowcol))

If .CurrentX tmpX Then .CurrentX = tmpX

Else

.CurrentX = tmpX + sngFontSize / 4

End If

.CurrentY = tmpY + sngFontSize * 0.25

sStr = flg.TextMatrix(iNowRow, iNowcol)

If IsNumeric(sStr) Then If Left(sStr, 1) = "." Then sStr = "0" sStr

If sStr = "0" Then sStr = ""

If iNowRow 4 Then

If IsNumeric(sStr) Then

Pic1.Print sStr

Else

If sStr sTmp Then Pic1.Print sStr

End If

Else

Pic1.Print sStr

End If

sTmp = sStr

'劃下邊線

.CurrentY = tmpY + sngFontSize * 1.5

.CurrentX = tmpX

Pic1.Line -Step(sngColWid(iCycle), 0)

'劃右邊線

tmpX = tmpX + sngColWid(iCycle)

.CurrentX = tmpX

.CurrentY = tmpY

'劃右邊線

Pic1.Line -Step(0, sngFontSize * 1.5)

iNowcol = iNowcol + 1

Next

Next

tmpY = tmpY + sngFontSize * 1.5

.CurrentY = tmpY

Next

.Top = 600

Exit For

Next

Exit For

Next

End With

當(dāng)前文章：vbnet創(chuàng)建a4尺寸 vbnet padleft
文章源于：http://chinadenli.net/article20/dojjoco.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營銷型網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、手機(jī)網(wǎng)站建設(shè)、品牌網(wǎng)站設(shè)計、網(wǎng)站建設(shè)、

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)