엑셀 VBE 파일 출력 좀 부탁해도 될까요?  
 글쓴이:별셋
, Hit : 3085

- File #1 : 주소록출력.xls(25.5 KB), Download : 60
첨부파일 



출력시 확인하기 위해 PDF파일로 하는데요.

한사람 당 한장 한장 매번 파일 이름을 물어보는데요. PDF파일 이름 하나로 통으로 출력이 되게 부탁해도 될까요.



그리고 

출력시 파일 *~** 번까지 선택 출력이 가능하게 

그리고 

중간에 멈추게 그리고 엑셀 개인이름 파일로 출력이 가능 한지요?




데이타가 (수백명 이상의 자료)너무 많아서



일일이 하나 하나 파일명ㅇ을 물어봐요.



해서 

하나의 파일로(pdf)아니면 엑셀로도 가능 하게



그리고

각각 사람마다 

각각 사람이름으로 파일이 만들어지게 만들고 싶습니다.


  별셋
회원님의 소개글이 없습니다.
정보력:4860
친절도:2148

stonefly
정보력:0
친절도:
 
01-14 21:32
 		1. 그냥 화면출력(미리보기 출력)으로 확인하면 안되나 보군요~
아 win10 1709 설치 하느라 게임만 설치하고 아직 엑셀도 설치 안한 1인 ㅠㅠ
stonefly
정보력:0
친절도:
 
01-14 21:53
 		제가 사용하는 DM용 함수 입니다.
저 함수를 버튼에 등록하면 쓸 수 있겟죠?
checkbox의 채크 상태로 프리뷰로 프린트 할 것인지
아니면 봉투에 인쇄 할 건지 선택이 가능 합니다.

printname = Sheet1.ComboBox2.Value <== 이 부분은 프린터를 고르는 겁니다.
가끔 저도 종이로 인쇄하지 않고 PDF파일로 인쇄해서 보내주거나 팩스로 보낼때 사용 합니다.
이 부분을 이용해서 세금계산서 프린트용도 비슷한 루틴 입니다.

Public Sub 편지봉투출력()
****If Sheet1.CheckBox1.Value Then
********printname = Sheet1.ComboBox2.Value
********Sheet9.PrintPreview */ 화면 인쇄
****Else
********printname = Sheet1.ComboBox2.Value
********Sheet9.Select */ 원하는 시트를 프린트 하기 위해 시트 선택 합니다.
********ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ */ 프린트 1장
********IgnorePrintAreas:=False, ActivePrinter:=printname */ printname의 값의 프린터로 인쇄
********Sheet1.Select */ 다시 원래 시트로 돌아가는...
****End If
End Sub

제 함수를 참고 해 보시고
원한는 페이지만 프린터 하시려면 원하는 페이지만 프린트에게 값을 보내세요
그럴려면 For 문 안에 내가 원하는 페이지만 프린트 할 수 있도록 if 문으로 선택을 해 주셔야 합니다.

Public Sub 세금계산서출력()
****If Sheet1.CheckBox1.Value Then
********printname = Sheet1.ComboBox2.Value
********Sheet2.PrintPreview
****Else
********printname = Sheet1.ComboBox2.Value
********Sheet2.Select
********ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
********IgnorePrintAreas:=False, ActivePrinter:=printname
********Sheet1.Select
****End If
End Sub
stonefly
정보력:0
친절도:
 
01-14 22:00
 		아주 허접하고 대충 사용하는 ^^;

stonefly
정보력:0
친절도:
 
01-14 22:07
 		Public Sub 콤보박스목록얻기()
'영역으로부터 콤보박스 목록 취해오기 ( 값 복사형식 )
Sheet1.ComboBox1.Clear
k = Sheet3.Cells(1, 1).Value
For i = 2 To k Step 1
cellsvalue = Sheet3.Cells(i, 2).Value
Sheet1.ComboBox1.AddItem cellsvalue, i - 2
Next i
End Sub

Public Sub 프린터목록얻기()
j = Sheet8.Cells(1, 3).Value
Sheet1.ComboBox2.Clear
k = Sheet8.Cells(1, 1).Value
For i = 2 To k Step 1
cellvalue = Sheet8.Cells(i, 2).Value
Sheet1.ComboBox2.AddItem cellvalue, i - 2
Next i
If j > k Then
Sheet1.ComboBox2.ListIndex = k - 2
Else
Sheet1.ComboBox2.ListIndex = j - 2
End If
End Sub

Public Sub 프린터목록회전()
Line = Sheet8.Cells(1, 3).Value
'Sheet12.Cells(20, 7).Value = Sheet8.Cells(Line, 2).Value
Sheet1.ComboBox2.ListIndex = Line - 2
Sheet1.ComboBox2.Value = Sheet8.Cells(Line, 2).Value
End Sub

Public Sub 거래처스핀설정()
Sheet1.SpinButton1.Min = 2
Sheet1.SpinButton1.Max = Sheet3.Cells(1, 1).Value
End Sub

Public Sub 일지스핀설정()
Sheet1.SpinButton2.Min = 2
Sheet1.SpinButton2.Max = Sheet4.Cells(1, 1).Value
End Sub
twinspapa
정보력:450
친절도:363
 
01-15 09:10
 		제 블로그에 퍼갈께요 감사합니다.
별셋
정보력:4860
친절도:2148
 
01-15 09:12
 		쪽지 드렸습니다.
부탁합니다.
kdole
정보력:1600
친절도:4608
 
01-15 09:30
 		.... 이엑셀 제가 알고 있는 엑셀이 아닌듯...... ^^;
이징가미
정보력:530
친절도:682
 
01-15 20:27
 		제 블로그에 스크랩하였습니다. 감사합니다.
DASOMI
정보력:3150
친절도:3961
 
02-14 09:32
 		제 블로그에 스크랩하였습니다. 감사합니다.